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BMS REVIEW AND EXTENTIONS 
— BMS PAGING 
TEMPORARY STORAGE 


pay 

FILE CONTROL 3 ri 
TRACE CONTROL a 

DUMP CONTROL 


DAY 3 

BUILT IN FUNCTIONS 
a TASK CONTROL 

INTERVAL CONTROL 


DAY 4 
TEXT BUILDING 
ROUTING | 
- JOURNALING 
PROGRAM CONSIDERATIONS 


~CICS/VS PROGRAMMING IT HANDOUT 


U3682 


THIS MATERIAL WAS PRODUCED FOR EDUCATIONAL PURPOSES ONLY, 
THE UTMOST CARE HAS BEEN TAKEN TO ENSURE THE ACCURACY OF 
THIS PUBLICATION, HOWEVER, NO RESPONSIBILITY IS ASSUMED 
FOR ANY INACCURACIES THAT MAY OCCUR, FURTHERMORE, IT 
SHOULD BE UNDERSTOOD THAT CHANGES MAY OCCUR THAT MAY 

CAUSE ALL OR PART OF THIS PUBLICATION TO BECOME OBSOLETE, 
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BASIC MAPPING 


WHAT-IS BASIC MAPPING? 


FACILITY OF CICS 


COLLECTION OF MACROS 
WITHIN APPLICATION PROGRAM 
EXTERNAL TO APPLICATION PROGRAM 


DESCRIBES TERMINAL DATA STREAM 
OUTPUT 
INPUT 


ALLOWS UTILIZATION OF TERMINAL FEATURES 
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c) a. 


DEVICE INDEPENDENCE 


DEVICE INDEPENDENCE PERMITS THE APPLICATION 
PROGRAM TO BE WRITTEN WITHOUT REGARD TO 
THE PHYSICAL CHARACTERISTICS OF EACH TERMINAL 


TYEE, 


GEA 
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MAPPING 
DEVICE INDEPENDENCE 


SUPPLIED BY 
APPLICATION 
PROGRAM 


LINE TERM LINE 
DATA DATA 
| CTL CTL | CTL 


it ot fl 


SUPPLIED SUPPLIED SUPPLIED 
BY TCP BY BMS | BY TCP 


EA 
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| MAPPING 
DEVICE DEPENDENT MAPS 
CPU 
CICS 
LOAD LIBRARY 
APPL. TCTTE 
PROG. TEp 
ae aes ype 
MAPNAME 
DEVICE | pd 
DEPENDENT \0 
MAP 
— ao] _ 


Len 
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DEVICE INDEPENDENCE 
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INTRODUCTION 


APPL. DATA 


BASIC 
MAPPING 
SUPPORT 
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FORMAT INDEPENDENCE 


FORMAT INDEPENDENCE PERMITS THE APPLICATION 


PROGRAM TO BE WRITTEN WITHOUT REGARD TO THE 
FORMAT OR PHYSICAL PLACEMENT OF FIELDS ON 


THE TERMINAL. 
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MAPPING 
FORMAT INDEPENDENCE 


MAP 


FORMAT DATA 


TITLE 
NAME: 
ADDR: 
CITY: 
ACCT: 


TITLE 


NAME: JONES 
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APPL. PROGRAM 


APPL. DATA 


SYMBOLIC FIELDNAMES 
(DSECT} 


JONES 
111. ANYSTREET — 
DENVER, COLO 
12345 


ADDR: 111 ANYSTREET 
CITY: | DENVER, COLO 


ACCT: 12345 
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MAPPING 


FORMAT .INDEPENDENCE 


FIELD FORMAT 


LENGTH | ATT | DATA | LENGTH DATA 


FIELD 1 FIELD 2 


BLOCK FORMAT 


SPACE DATA | SPACE ATT | DATA 


FIELD 1 


FIELD 2 


TEXT FORMAT 


—_._—__________—_—_—_———_- DpATA —_— ——————_ 
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BASIC MAPPING 


GENERAL FLOW OUTPUT 


BASIC 
MAPPING 
MODULES 


TERMINAL 
CONTROL 
PROGRAM 


APP. PGM 


OFHBMS 


SELECTIVE MERGE 


OUTPUT 
MAP / 


ae 
TERMINAL TYPE 
/ 


/ 
TCTTE | 


C) 


0) 


CLEA 
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BASIC MAPPING 


GENERAL FLOW INPUT 


APP. PGM BASIC TERMINAL 
| MAPPING CONTROL 
DFHBMS MODULES PROGRAM 


0s on 


SELECTIVE MOVE 


/ 
TERMINAL TYPE 
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— TCTTE 
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TIOABAR 


INITIAL 
READIN 


PROCESS 


WRITE 


DFHSC 
DFHBMS 
DFHBMS 


oT 


DFHBMS | 
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DFHTIOA | ‘ 
MAPSETA | 
TCTTEAR TCAFCAAA 


TYPE=FREEMAIN,RELEASE=ALL 


TYPE=(ERASE,OUT),MAP=MAPA,MAPSET=MAPSETA,DATA=NO 
TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
TIOABAR,TCTTEDA 


TYPE=GETMAIN,NUMBY TE=480,INITIMG=00,CLASS=USE 


= Peay 
TIOABAR,TCASCSA | 


TIOABAR. TCTTEDA 
TYPE=OUT,MAP=MAPA MAPSET=MAPSETA.DATA=YES 


01 DFHBLLDS COPY DFHBLLDS. 
| 02 see 
02 TIOABAR PIC S9(8) COMP. 
02 MAPBAR PIC S9(8) COMP. 
1 | 
01 DFHTIOA COPY DFHTIOA. 
| ~<«-—-——01 CBASE PIC X(——-) 


cr) 


01 MAPAI COPY MAPSETA. 
PROCEDURE DIVISION. 
MOVE CSACDTA TO TCACBAR. 


MOVE TCAFCAAA TO TCTTEAR. 
DFHSC TYPE=FREEMAIN,RELEASE=ALL 
DFHBMS TYPE=(ERASE,OUT),MAP=MAPA,MAPSET=MAPSETA,DATA=NO 
READIN. 7 
DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
MOVE TCTTEDA TO TIOABAR. oo 
ADD 12 TO -TIOABAR GIVING MAPBAR 
PROCESS. 
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DFHSC TYPE=GETMAIN,CLASS=TERMINAL,INITIMG=00, x 
- NUMBYTE=480 | 
MOVE TCASCSA TO TIOABAR. 
ADD 12 TO TIOABAR GIVING MAPBASE. 


* a <sume <omnu 


WRITE 
MOVE TIOABAR TO TCTTEDA. 
DFHBMS TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 
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%INCLUDE (DFHTIOA); 
2 TIOADATA CHAR (1); 
%INCLUDE (MAPSETA); 
DFHSC TYPE=FREEMAIN,RELEASE=ALL 
DFHBMS TYPE=(ERASE,OUT),MAP=MAPA,MAPSET=MAPSETA,DATA=NO 
READIN: | 
DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
TIOABAR=TCTTEDA, 
BMSMAPBR=ADDR(TIOADATA); 
PROCESS: 


DFHSC TYPE=GETMAIN,NUMBYTE=480,INITIMG=00,CLASS= USE R 
TIOABAR=TCASCSA, 
BMSMAPBR=ADDR(TIOADATA); 


SEED EE SST 


WRITE: 


TCTTEDA=TIOABAR: 
DFHBMS TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 
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COPY DFHBMSCA 


DLEA 


3270 PRINTER END OF MESSAGE 


DFHBMPEM 
DFHBMPNL . 3270 PRINTER NEW LINE SYMBOL 
DFHBMASK AUTOSKIP 
- DFHBMUNP UNPROTECTED 
DFHBMUNN UNPROTECTED AND NUMERIC 
DFHBMPRO- PROTECTED 
DFHBMBRY HIGH INTENSITY 
DFHBMDAR DARK, NONPRINT 
<.DFHBMFSE = MDT ON 
DFHBMPRF = PROTECTED AND MDT ON 
DFHBMASF AUTOSKIP AND MDT ON 
-DFHMASB AUTOSKIP AND HIGH INTENSITY 


SLE'A 


COPY DFHAID 


DFHENTER 
-DFHCLEAR 

DFHPEN 

DFHPA1 
~DFHPA2 

DFHPA3 

DFHPF1 

e 

% 

. 

DFHPF12 


. 
Seen - . sen . ra. 
: i < ay on 
‘ Oar yan i ‘ wae. % 
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ENTER KEY 
CLEAR KEY 

IMMEDIATELY DETECTABLE FIELD 
PA1 KEY 

PA2 KEY 


 PA3 KEY 


PF1 KEY 
@ 
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@ 
PF12 KEY 
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BASIC MAPPING 


HOW TO USE BASIC MAPPING 


DEFINE NEEDS OF OPERATOR 


HEADINGS 
DATA 
DISPLAYABLE © : 
O HIGH LIGHTED 
: PEN DETECTABLE 


__CURSOR POSITION 


DEFINE NEEDS OF APPLICATION PROGRAM 


NO HEADINGS 
7 TYPE OF ACTION 


DATA PERTINENT TO ACTION | . 


Ow! CREATE OUTPUT MAPS TO SUPPLY OPERATOR NEEDS ~ 


a AARC! FLAN en EUR RR Se nWepnmion | Meisbapcang ciniabbiein taht eS AA 


CREATE INPUT MAPS TO SUPPLY APPLICATION PROGRAM 
NEEDS 


PALES RL IEE ce LE EE ESN Ee sig BRET tN TE ay i te Me so Plage 


CREATE DSECTS TO MATCH MAPS (INPUT AND OUTPUT) 
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a J ae f ia / ees , ~~ Cee? 
ae, ve doe, Gyehh OEE ast é fy 
a é . / 
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MAPSET 


DFHMSD ——> 


DFHMDI ——» 


DFHMDF ——> 
DEHMDF ——> 


| MAPNAME 


MAPPING 


MAPSETNAME (PPT) 


MAPSET SPECIFICATION 


MAPNAME 


MAP SPECIFICATION 


MAPNAME 


qa ED EEE SECC 0 
—_— ae = 4c GEES CUE 060 «CGE 060 eeeEET 
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MAPSETA 
MAPA 


NAME 


DEPT 


MAPB 


- DEHMSD 


DFHMDI 
DFHMDF 


DFHMDF 


DFHMDF 
DFHMDF 


DFHMDF 


DFHMDI 


cr em te 


DFHMSD 


C) 


TYPE=MAP,MODE=INOUT 
LINE=1,COLUMN=1,SIZE=(10,40) 


POS=(1,1), LENGTH=30,ATTRB=(ASKIP,PROT), - 


INITIAL=‘APPLICATION 3041 —MASTER’ 


\ 


POS=(2,1), LENGTH=8,ATTRB=(ASKIP,PROT), — 


INITIAL=‘NAME:’ 
POS=(2,9), LENG TH=20,ATTRB=(IC), 
JUSTIFY=(LEFT,BLANK) 


POS=(3,1), LENGTH=12,ATTRB=(ASKIP,PROT), — 


INITIAL=‘DEPARTMENT:’ 
. 
POS=(3,13), LENGTH=(12) 


(define next map in mapset) 


(terminate mapset) 


TYPE=FINAL 
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Cc) 


MAPSETA — TYPE=DSECT,LANG=ASM 


MAPAI 
MAPAO 
NAMEL 
NAMEF 
NAMEA 
NAMEI 
NAMEO 
DEPTL 
DEPTF 


MAPAI 


‘LENGTH’ 
‘FLAG’ 
‘ATTRIBUTE’ 
‘NAME — {NPUT’ 
‘NAME — OUTPUT’ 
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C) 


MAPSETA — TYPE=DSECT,LANG=COBOL 


01 MAPAI 


01 


01 


02 NAMEL PIC S9(4) COMP. 

02 NAMEA PIC xX. 

02 FILLER REDEFINES NAMEA. 
03 NAMEF PIC X. 

02 NAMEI PIC X(20). 

02 DEPTL PIC S9(4) COMP. 

02 DEPTA PIC xX. 


02 FILLER REDEFINES DEPTA. 


03 DEPTF PIC X. 


_ 02 DEPTI PIC X(12). 


MAPAO REDEFINES MAPAI. 
02 FILLER X(3). 

02 NAMEO PIC X(20). 

02 FILLER X(3). 

02 DEPTO PIC X(12) 


MAPBI REDEFINES MAPAI., 


‘LENGTH’ 


‘ATTRIBUTE’ 


‘FLAG’ 
‘NAME — INPUT’ 


‘NAME — OUTPUT’ 
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MAPSETA — TYPE=DSECT,LANG=COBOL,BASE=CBASE 


01 MAPAI REDEFINES CBASE. 


02 NAMEL PIC $9(4) COMP. _ ‘LENGTH’ 
02 NAMEA PIC X. ‘ATTRIBUTE! 
02 FILLER REDEFINES NAMEA. 

03 NAMEF PIC x. ‘FLAG’ 


02 NAME! PIC x(20). ‘NAME — INPUT’ 
02 DEPTL PIC $9(4) COMP. | 
(02 DEPTA PIC xX. 
02 FILLER REDEFINES DEPTA. 
03 DEPTF PIC x. 
- 02 DEPTI PIC X(12). 
01 MAPAO REDEFINES MAPAI. 
02 FILLER X(3). 
02 NAMEO PIC X(20). ‘NAME — OUTPUT’ 
02 FILLER X(3). 
02 DEPTO PIC X(12) 


O01 MAPBI REDEFINES MAPAI. 
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MAPSETA — TYPE=DSECT,LANG=PL1 


DECLARE 1 MAPA! BASED(BMSMAPBR), 
2 NAMEL FIXED BINARY (15,0), 

2 NAMEA CHAR (1), 

2 NAME! CHAR (20), 

2 DEPTL FIXED BINARY (15,0), 
2 DEPTA CHAR (1), 

2 DEPTI CHAR (12), 

DECLARE 1 MAPAO BASED(BMSMAPBR), 
2 DFHMS1 CHAR (2), 
2 NAMEF CHAR (1), 

2 NAMEO CHAR (20), 
2 DFHMS2 CHAR (2), 
2 DEPTF CHAR (1), 
2 DEPTO CHAR (12), 


DECLARE 1 MAPBI BASED(BMSMAPBR), 
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‘LENGTH’ 
‘ATTRIBUTE’ 
‘NAME — INPUT’ 


‘FLAG’ 
‘NAME — OUTPUT’ 
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HARDCOPY MAPPING 


APPL. PROG. 


APPL. DATA 


SYMBOLIC FIELDNAMES 


TIOA (DSECT) 
wf JONES t $234.56 DATA=FIELD 


BMS 


BBBJONESB88BBB$234.56BBBBBBBB 


TCP 


JONES $234.56 


c) 


SC'E"A 


C) Cc) 


HARDCOPY MAPPING 


APPL. PROG. 


APPL. DATA 


SYMBOLIC 
FIELDNAMES 


TIOA (DSECT) | 
BBBJONES8B8BBBBE$E234,5 68 BB BB |DATA=BLOCK 


JONES $234.56 


9Z'E'A 
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oe ©) 
LINE CONTROL 


- DEVICE DEPENDENT 
| ee 


Nitti oN 
BBBNAMEBBBBBBSALARY  DppppBBBYONESsBBBB $234.56 ‘ 


CAUSES CAUSES 
CARRIAGE RETURN TRANSMISSION PAUSE 
LINE FEED | CARRIAGE MOVEMENT 


LINE 1 | LINE 2 


SALARY 
$234.56 


c) 
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MAPPING 


LINE CONTROL 
MAP APPL. PROG. 
FORMAT DATA APPL. DATA 
NAME | 
SALARY 
TIOA 
JONES $234.56 
Jf BMS 


| BBBNAMEBBBBBBSALAR YBBBBB BBB JONES BBBBB$234.56BBBB 


LINE1 . LINE 2 


BMS | 
Lil 


NII | N 
BBB NAMEBBBBBBSALARY , ppppp 8B BYONESBBBBB $234.56, 


TCP 


NAME) SALARY 
JONES © $234.56 
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MAP | SIZE=(3,20) : 
PAGE POSITIONING 


PAGE 


TCT 


| PGESIZE=(24,80) 


7) 
~DSECT | 


STANDARD 
FORMAT | 
DATA 


| MAPPED | 
1 DATA — 


MAPPED 
DATA 


CYA 
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PAGING 


| TEMPORARY 
PAGE BUFFER STORAGE 
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oe APPL. PROG.  MAPX 


vA 


0) 


° PAGING 
MAP POSITIONING 


-DFHMDI 
SIZE 
POSITION 


MOVE DATA 
PAGEBLD MAPX 


APPLICATION DATA | 


MAPPED DATA 


MAPPED 
DATA 


PAGE BUFFER 


Sy A 


MAPSET 


MAPSET 


HEADER MAP 
DETAIL MAP 


TRAILER MAP 


MAPOUT 
HEADING 
TITLE 
DETAIL 
ACCT 
NAME 
AMT 
TRAILER 
TOTAL 
TOTAMT 


DFHMSD 
DFHMDI 

DFHMDF 
DFHMDI 

DFHMDF 
DFHMDF 
DFHMDF 
DFHMDI 

DFHMDF 
DFHMDF 
DFHMSD 


11111. ADAMS, ALBERT A $ 
22222 BAKER, BARBARA B $ 
33333 CHARLEY, CLARENCE C $ 
44444 DOGG, DWIGHT D $ 4,567.89 
55555 ZINGER, ZELDA Z $ 
$ 


C) / CO) 


PAGING 


~ ACCOUNT BALANCES 

12.34 

234.56 
3.45— 


.99 


TOTAL 4,812.33 


TYPE=MAP,MODE=OUT 
JUSTIFY=FIRST,SIZE=(1,40), HEADER=YES 
POS... 
LINE=NEXT,COLUMN=1,SIZE=(1,40) 
POS=.. 

POS=... 

POS=... 
JUSTIFY=LAST,SIZE=(1,40), TRAILER=YES 
POS... 

POS=... 

TYPE=FINAL 


OPA 


c+) a 0) 


BASIC MAPPING 


,LINE= ( number 
a NEXT 1 
SAME 
,;COLUMN= ( number 
NEXT | 
SAME 


susriry [fuer \) ; FIRST ‘yi 
RIGHT baa \ 

[| HEADER=YES] 

[, TRAILER=YES] 


i FIELD \) 
BLOCK $ |. 


map DFHMDI — [SIZE=(line,column) ] 


Ol=SOd dal 


(GL'z)=4ZIS dV 


0€=SOd VaT14 
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PAGING 
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MAP POSITIONING 


BMS POSITIONS A MAP AT A SPECIFIED LINE AND COLUMN 
WITHIN A PAGE OF OUTPUT. 


- MAPPED OUTPUT 


NAME 
ADDRESS 
CITY, STATE 
SIZE=(3,20) 
TCT 
LINE=5 [PGESIZE=(12,40) 


COLUMN=10 
PAGE 


NAME 
/ ADDRESS 
| CITY, STATE 


OLA 


CO eA oC) 
PAGING 


MAP POSITIONING 


BMS POSITIONS A MAP AT THE SAME LINE AND NEXT COLUMN. 


. 


APPED OUTPUT 


| DATE 


SIZE=(1,10) 


LINE=SAME | BMS 
COLUMN=NEXT 


NAME DATE 
ADDRESS 


ae y CITY, STATE. 
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PAGING 
‘MAP POSITIONING - 


BMS POSITIONS A MAP AT THE NEXT FULL LINE AND SAME COLUMN. 


MAPPED OUTPUT 
SHIP VIA AIR FREIGHT 
SIZE=(1,25) 


LINE=NEXT 


COLUMN=SAME BMS 


PAGE 


NAME | DATE 


ADDRESS 


CITY, STATE 


| SHIP VIA AIR FREIGHT 


CLV A 
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PAGING 
MAP POSITIONING 


BMS POSITIONS A MAP JUSTIFIED TO THE LEFT OR RIGHT. 


MAPPED OUTPUT 


TERMS 


sali _ JUSTIFY=RIGHT 


LINE=SAME _ 
BMS 


PAGE 


NAME 


| pate i‘ CC 
ADDRESS: 
CITY, STATE 


SHIP VIA AIR FREIGHT TERMS 


ELD A 


a 


c) 
PAGING | 


MAP POSITIONING | 


MAPPED OUTPUT 


TAX AMT 
TOTAL AMT 
— SIZE=(2,10) 


PAGE 


NAME 
ADDRESS 
CITY, STATE 


JUSTIFY=(LAST,RIGHT) 


TAX AMT 
TOTAL AMT 
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SLD A 


PAGING | 


SUMMARY —_ 
PAGE BUILD MAPS FROM TOP TO BOTTOM OF PAGE 
PAGE BUILD MAPS FROM LEFT MARGIN AND/OR RIGHT MARGIN IN 


PAGE BUILD MAPS ON SAME LINE WITH EQUAL LINE SIZE 


OLA 


MAP POSITIONING 


JUSTIFY=FIRST 


C) 
PAGING 


LINE POSITION | LINE=1-240 LINE=SAME_ | LINE=NEXT 


LINE # ON | TOP OF TOP OF 
NEW PAGE | NEW PAGE NEW PAGE 


BOTTOM | BOTTOM ‘BOTTOM 
OF PAGE OF PAGE OF PAGE 


JUSTIFY=LAST | 


NEITHER 


COL. POSITION — || 


JUSTIFY=LEFT 


JUSTIFY=RIGHT 


COL.=1-240 COL.=SAME | COL.=NEXT 
COLS FROM | SAME COL | NEXT COL 

LEFT FROM LEFT | FROM LEFT 
COLS FROM | SAME COL | NEXT COL 

RIGHT FROM RIGHT| FROM RIGHT 


Pace OVERFLOW) —=—~=“‘SUNSOOOUOUOUOUOUOUO~C“CS~S~S 


JUSTIFY=FIRST 
LINE=nn,COLUMN=nn IN FORMATTED AREA 
MAP WON‘’T FIT ON REMAINDER OF PAGE 


NEXT FULL | 
LINE NUM | SAME LINE LINE 


c) 


Llbn 


MAPA 


MAPB 
MAPC 
MAPD 
MAPE 
MAPF 
MAPG 
MAPH 


MAPI 


. 2 a } * 
PAGEBLD 
SIZE=(3,20) JUSTIF Y=(FIRST,RIGHT) | PGSIZE=(12,40) 
SIZE=(1,10), LINE=SAME,COLUMN=11 , 
SIZE=(1,10),LINE-SAME,COLUMN=10 fr 


SIZE=(2,10) JUSTIF Y=RIGHT,COLUMN=21 


oe jp haan ga HAA ee 


SIZE=(3,20), LINE=SAME 
SIZE=(1,20), LINE=SAME,COLUMN=NEXT 


SIZE=(1,20) 


SIZE=(1,10) JUSTIF Y=LAST,COLUMN=11 


S1ZE=(2,10), LINE=11,COLUMN=31 


os: 
in a: : 4 
S 
i 
wd 
1 
i : 
i A 
j 
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3 
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& 
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IXAN=4NI1 ‘SSA=YHS0V3SH 


SdA=4Sd0V4SH 
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LSYId=ASILSNE 


(Ov'L)=4ZIS 
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C) 


TRAILER 


TCT 
PGSIZE=(12,40) 


OVERFLOW 


DUMMY TRAILER 
 SIZE=(2.40) 


c) 


PAGING 


PAGE 


TRAILER=YES, LINE=11 


TRAILER=YES, JUSTIFY=LAST _ 


Cc) 


LOVA 


DFHBMS 


Cc) Cc) 


BASIC MAPPING 


TYPE=(PAGEBLD |, ( OUT [, SAVE] [,ERASE]) 
STORE 
| RETURN- 
= NC \] 
1 ¥E5 J 
ONLY 
MAP= map name 
on - 
MAPSET= a name SMSETADR= ( symbolic address 
| oe 1 ic. ] 
‘CTRL=( [PRINT] [; ( L40 7 [, FREEKB] [, ALARM] [,FRSET] 
L64_ 
L80 
HONEOM 


> LOFLOW= symbolic address] C- ee: 


ie RSOR= number i 
YES 


[.WRBRK=symbolic address] 
[,NORESP=symbolic address] 
[, TSIOERR=symbolic adress] 
[,INVREQ=symbolic address] 
 -{, RETPAGE=symbolic address] 
[,INVMPSZ=symbolic address] 
[,ERROR=symbolic address] 


cov A 


6 


c) 


PAGING 


— DISPOSITION 


COMPLETED PAGE 


MAPPED DATA | 


our// sTone| RETU an\ 
| fo | 


VIDEO 


TERMINAL TEMPORARY MAIN 
STORAGE | STORAGE 


c) 


ESV A 


C) 


-) en) 


RETURN 


DFHBMS TYPE=RETURN 
RETPAGE=ROUTINE 


ROUTINE — e 


TCAMSRLA : | . 
I] | | 4 BYTES _ 
ee, 
PAGEBUF PAGEBUF PAGEBUF _ 
TC] ADDRESS | TC{ ADDRESS | TC] ADDRESS FFFFFFFF 


= MUST NOT FREE 
REUSED BY BMS 


—_ STOR ACCT | LL| RR. PAGE OF DATA 


| . MUST FREE 
| USER STORAGE 


STOR ACCT LL] RR|, PAGE OF DATA 
STOR ACCT LL] RR PAGE OF DATA 
ee ee, 


8 BYTES 2B 2B 


VODA 


' (FOV = 


-) 


OVERFLOW 


DFHBMS  TYPE=PAGEBLD... 

: OF LOW=ROUTINE 
ROUTINE— 

PAGEBLD TRAILERS 

PAGEBLD HEADERS 

PAGEBLD DETAIL CAUSING OFLOW 
PAGE 


HEADER (JUSTIFY=FIRST) 


HEADER | HEADER 


HEADER DETAIL 


DETAIL 


TRAILER (LINE=nn) 
DUMMY 


TRAILER )) | TRAILER | | TRAILER TRAILER 


c) 


GZ yA 


0 oY 


- a 


PAGE BUILDING © PAGING 
PROGRAM TCTTE 


TCTTEDA 


Noe 


USER DATA (MAP) 


DFHBMS PAGEBLD 


. : s 
 peortow DFHBMS PAGEBLD 
e 
e 


| 
DFHBMS PAGEOUT } (DATA=ONLY) 
: | ) | MAP 
| CONSTANTS | 


LOAD MAP (SUFFIX) 
FIT ON PAGE ? 
» GETMAIN © 
MAP DATA 
FREEMAIN OLD TIOA 
PAGE FULL ? WRITE TS 


WRITE TS 
SCHEDULE PAGING 


INTERPRET PAGE COMMANDS 
GETMAIN 
READ TS | 
SCHEDULE TERMINAL WRITE 
SET DISPLAY STATUS 
RETURN 


(DATA=YES) 
ITIOA (DATA=NO) 


| 

! 

| [_TERW DATASTREAM (PAGE) 
| 

| ie: 


TEMP 
STORAGE 


TIOA 


TERM DATASTREAM (PAGE) 


+ 
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~DFHBMS 


c)  eY 


BASIC MAPPING 


TYPE=PAGEOUT 


.CTRL= ( (ease V ee 4 7 
AUTOPAGEJ | | (RELEASE 


YES f 


oo eee address \ 


_{,TRANSID=transaction code] 


CURRENT 
ALL 
-EODPURG= { AUTO \ 


_ RK=( symbolic address 


OPER 
'NORESP=symbolic address] 
TSIOERR=symbolic address] 


[, 
~{,RETPAGE=symbolic address] 
L, 


ERROR=symbolic address] 


LOVA 


PAGE STATUS 


PAUSE AFTER EACH PAGE 
PAGING COMMANDS FOR OTHER PAGES 
REQUIRED STATUS FOR VIDEO DEVICES 
(OPTIONAL FOR HARDCOPY | 


AUTOPAGE STATUS 


NO PAUSE BETWEEN PAGES TO ACCEPT PAGING COMMANDS 
NORMAL STATUS FOR 3284/3286 PRINTERS 
RECOMMENDED STATUS FOR HARDCOPY 


ei ae) e) 


DFHBMS TYPE=PAGEOUT,CTRL=RETAIN 


STORES LAST PAGE 
PAGES WRITTEN TO TERMINAL - 
RETURNS TO TRANSACTION 


AT PAGING TERMINATION 
UPON INPUT OF NON-PAGE COMMAND (DATA) 


TRANSACTION CONTINUES 
DFHBMS TYPE=PAGEOUT,CTRL=RELEASE 


STORES LAST PAGE 

PAGE WRITTEN TO TERMINAL 

RETURNS TO CICS AFTER FIRST PAGE WRITTEN 
PAGING COMMANDS INITIATE NEW TASK - 


DFHBMS TYPE=PAGEQUT 


STORES LAST PAGE 
RETURNS TO TRANSACTION — — — 
PAGES WRITTEN TO TERMINAL WHEN TERMINAL AVAILABLE 


ONLY WITH STORE 
ONLY WITH DIRECT (NON-ROUTE) TERMINAL 


BZPA 


6Z'b'A 


C) 


) 


6) 


2741 WRITE BREAK. SUPPORT — ACTION ON 2741 ATTN KEY 


WRBRK=symbadr (TYPE=OUT) 


CONTROL IS PASSED TO symbadr IF . . . 


TRANSACTION ACTIVE — DIRECT TERMINAL INVOLVED 


PAGEOUT (CTRL=RETAIN) 
WRBRK=CURRENT (TYPE=STORE) 
CURRENT PAGE CEASES PRINTING 
NEXT PAGE BEGINS IF AUTOPAGE 


WRBRK=ALL (TYPE=STORE) 


CURRENT PAGE CEASES PRINTING 
NO ADDITIONAL PAGES ARE SENT 
REMAINING PAGES ARE PURGED 


Cy 


JDYNd=3dAL SWEHIG 


ONIiddVW OISVE 


CJ 


V.4.30 


LED A 


C) 


RETRIEVAL 
P/X 


Orprrwmemzo 
| 


c) 


CSPG COMMANDS 


PAGE NUMBER N 

N PAGES FORWARD 

N PAGES BACKWARD 

CURRENT PAGE 

NEXT PAGE 

PREVIOUS PAGE 

LAST PAGE | 

ALL REMAINING PAGES (AUTOPAGE) 

QUERY TITLE OF REMAINING MESSAGES AND ID 


coy A 


Cc) nk o> C+) 


CSPG COMMANDS 


CHAINING — 
L/XXXX 


XXXX — TRANSID WHOSE PAGED OUTPUT SHOULD BE ADDED 
TO LOGICAL MESSAGES ALREADY CHAINED TO TERMINAL 


TERMINAL ¥ 


MESSAGE 1 
ID=HHHHHH 
10 PAGES 


MESSAGE 2 
ID=HHHHHH 
5 PAGES 


MESSAGE 3 
ID=-HHHHHH 
50 PAGES 


Ef'b'A 


OO _- 


P/(Y)X (LOGICAL MESSAGES CHAINED TOGETHER) 
1 a 
N — LOGICAL MESSAGE N OF CHAIN 
C — CURRENT LOGICAL MESSAGE 
N — NEXT LOGICAL MESSAGE 
P — PREVIOUS LOGICAL MESSAGE 
-L — LAST LOGICAL MESSAGE 


P/X,HHHHHH 


HHHHHH — LOGICAL MESSAGE ID (3 BYTE HEXADECIMAL) 


vey A 


oa 


c) 


CSPG COMMANDS 


COPY — 


C/XXXX_ 


-XXXX — TERMINAL ID TO RECEIVE PAGE 
| CURRENTLY DISPLAYED AS IT WAS 
ORIGINALLY SENT TO TERMINAL | 


REQUIRES ROUTING FACILITY TO BE GENERATED IN BMS 


Sty A 


Cy eo) OC) 


CSPG COMMANDS 


TERMINATION — 


T/X 
C — CURRENT LOGICAL MESSAGE 
B — BASE LOGICAL MESSAGE AND ALL CHAINED TO IT 
H — HIGHER LOGICAL MESSAGES CHAINED TO BASE, BUT NOT BASE 
R — ROUTED LOGICAL MESSAGES SCHEDULED FOR IMMEDIATE DELIVERY 
A — ALL LOGICAL MESSAGES (COMBINATION OF B AND R) 


T/X,HHHHHH 


HHHHHH — LOGICAL MESSAGE HHHHHH !IS PURGED 
CURRENT MESSAGE IS REDISPLAYED TQ OPERATOR 


LCA 


a 


C) _ “C) 


TEMPORARY STORAGE MANAGEMENT 


STORAGE AND RETRIEVAL OF DATA 
DATA IDENTIFICATION 
SEQUENTIAL OR DIRECT 

DATA TRANSFER BETWEEN TASKS 

TERMINAL PAGING 

MESSAGE ROUTING 


CCA 


Cc) — eY 


TEMPORARY STORAGE 


MAIN STORAGE 


SHORT TERM STORAGE 
- SMALL AMOUNTS OF DATA 
SHARED SUBPOOL 
MAXIMUM RECORD — 32 K BYTES 


AUXILIARY STORAGE 


VSAM — ENTRY SEQUENCED DATA SET 
LONGER TERM STORAGE 

LARGER AREA REQUIRED ~ 

RECOVERABLE ON WARM START a 
MAXIMUM RECORD — CONTROL INTERVAL SIZE 


6) 


AODVYOLS AYVYOdWIAL 


CJ | © 


V.2.3 


VEN 


a” 


DFHTS 


DFHTS 


e) 


TEMPORARY STORAGE 


TYPE=PUT 
-LDATAID=name] 
Ff TSDADDR= fermbotie weeny 


YES 
SSTORFAC= {AUXILIARY \ | 
MAIN 
(,COND- YES] . 
[,NOSPACE=symbolic address] 


[. NORESP=symbolic address] 
[,IOERROR=symbolic address] 
_[, INVREQ=symbolic address] 
[,ERROR=symbolic address] 


TYPE=PUT, DATAID=ABC12,ERROR=CHECK 


C) 


CJ 


(=4GqavaSL) VOSLVOL 


VIVQd 


(=YqqvVaSL) VOSLVOL 


VLVQG 


(J 


OO 71 7 


OO 71 71 


OLAD 
LAS 


O.LNd 
ind 


V 


V.2.5 


ICA 


on ew) 


TSI OA Temporary Storage Input/Output Area (DFHTSIOA) 


TSIOABAR 


X‘BE’ HALFWORD WORD 
TSIOASAL | TSIOASCA 


TSIOABAR — TSIOA Base Address Register 
TSIOADBA — TSIOA Data Begin Address _ 
TSIOASAL — TSIOA Storage Accounting — area Length 


a | DATA 
HALFWORD | HALFWORD 


TSIOAVRL | TSIOADBA 


TSIOASCA — TSIOA Storage Chain Address 
TSIOAVRL — TSIOA Variable Record Length (LLbb)** 


TEMPORARY STORAGE 
CSA 


CSACDTA 


CSACBAR (REG. 13) CSAWABA 


TCA 


TCACBAR (REG. 12) 


TSIOA 


TSIOABAR 


TWACOBA 


C 


V.2.7 


SZA 


-) 


DFHTS 


DFHTS 


cy HY 


TEMPORARY STORAGE 


TYPE=GET 

|, DATAID= name] — 

,TSDADDR= symbolic address . 
lem 


e— te 
NO 


[, NORESP= symbolic address] 

[, IDERROR=symbolic address] 
[ LOERROR=symbolic address] 
{,INVREQ=symbolic address] 
[,ERROR=symbolic address] 


TYPE=GET,DATAID=ABC1 2, NORESP=GO 


BCA 


C) a op —_ “CY 


TEMPORARY STORAGE 


DFHTS TYPE=RELEASE | 

[, DATAID=name] 

[. NORESP=symbolic address] 
{, IDERROR=symbolic address] 
[, 


INVREQ=symbolic address] 
[,ERROR=symbolic address] 


DFHTS TYPE=RELEASE, DATAID=ABC12 


CJ 


AOVYOLS AYVYOdWAL 
(CO 


V.2.10 


LLOA 


0 


DFHTS 


DFHTS 


TEMPORARY STORAGE 


TYPE=PUTQO 
[|.DATAID=name] 


_——_— ee secs) | 


YES 
_ [STORFAC= ( AUXILIARY 
| oan t] 
-[,COND=YES] 


[,NOSPACE=symbolic address | 
[,NORESP=symbolic address] 
[,LOERROR=symbolic address] 
[,INVREQ=symbolic address] 
[,ERROR=symbolic address] 


TYPE=PUTO, DATAID=ABC 


c) 


CLC AN 


DFHTS 


DFHTS 


c) 


‘TEMPORARY STORAGE 


TYPE=GETO 

[,DATAID=name] | | 

“TSDADDR=( symbolic address | 
ei \] 


tek 


[. NORESP=symbolic address] 
|, IDERROR=symbolic address 
[ JOERROR=symbolic address] 
[,INVREQ=symbolic address] 
{,ENERROR=symbolic address] 
[,ERROR=symbolic address] 


TYPE=GETQ,DATAI D=ABC,ENTRY= 15, 


ENERROR=NONE,NORESP=GO_ 


¥ | 


SLOAN 


DFHTS 


DFHTS 


OQ | —  * e) 


TEMPORARY STORAGE 


TYPE=PURGE 
[,_DATAID=name] 
[,NORESP=symbolic address] 
[,IDERROR=symbolic address] 
[,INVREQ=symbolic address] 
[,ERROR=symbolic address] 


TYPE=PURGE,DATAID=ABC 


DLICAN 


C) / ©) 


TEMPORARY STORAGE 


DFHTS TYPE=CHECK 
[,NOSPACE=symbolic address] 
[,NORESP=symbolic address] 
[,IDERROR=symbolic address] 
[ OERROR=symbolic address] 
[,INVREQ=symbolic address] 
L.ENERROR=symbolic address] 
[,ERROR=symbolic address] 


DFHTS — TYPE=CHECK,IDERROR=INVID, ENERROR=NONE 


LOA 


DATA BASE ACCESS 


STANDARD ACCESS METHODS 
EXCLUSIVE CONTROL 
INDIRECT ACCESS — 
FILE BROWSE |. 
DL/I INTERFACE 


* n %, Sted. Lina ae ae en, ae: 
a acer ae 9 : ey ian 
@ GEfAMERRE Toe fo : rye 
cal tow 3 E i knees kW Fi eet kone i 3 eer ae 


0) 


CEA 


7) 


- DATA SET NAME 


ACCESS METHOD 
DEVICE TYPE 
SERVICES ALLOWED - 
RECORD — LENGTH, FORMAT, BLOCKING 
KEY — LENGTH, POSITION 


c) 


o) ©) 


CoA 


FILE I/O AREA - FILE WORK AREA 


FILE 1/0 AREA (DFHFIOA) 


READ ONLY 
UNBLOCKED 
-UNSEGMENTED 


FILE WORK AREA (DFHFWADS) 


UPDATE 
ADDITIONS (NEW) 
BLOCKED 


ey 


VM 

qav 

f G3 D0798NN HO d..Lvadn 
gano0019 


Y44d4Nd WVSA 


(AGOW 3AOW) WVSA 


CQ. Coa mon 


V9.4 


GBA 


Cc) ©) 


RECORD IDENTIFICATION ______ RDIDADR 


USER PROVIDED AREA 
TWA RECOMMENDED 


ISAM — RECORD KEY 


VSAM — RECORD KEY 
RELATIVE BYTE ADDRESS 
GENERIC KEY WITH EXPLICIT LENGTH 


L KEY 


ro 


96 A 


ey 


C) <7 


DAM RECORD IDENTIFICATION___W___RDIDADR 


® UNBLOCKED — PHYSICAL RECORD SEARCH ARGUMENT 


@ BLOCKED — PHYSICAL RECORD SEARCH ARGUMENT 


CICS/VS DEBLOCKING ARGUMENT 


PHYSICAL RECORD SEARCH. DEBLOCKING 


REL BLK | REL BLK |“ .RECORD NUMBER OR KEY 


TYPE SPECIFIED IN 
| DFHFC RETMETH- = RELREC OR KEY 
$f | 
IT R KEY S| 
[weeccnwa | wey §¢ | 


\| RECORD NUMBER OR KEY 


j= -- SLAG QOS --+4 


wWwo4VIL 


AGOW SLVIOT WVSA 


CJ 


V.9.7 


PSEA 


LOCATE MODE 


KEYF 


 VSWABAR 


RECDBAR 


RECORD 


READREC 


PROCESS 


r) 


. DFHCSADS 


DFHTCADS 
CL8 


7 


DFHVSWA 


*, RECDBAR 
CL80 


KEYF,ACCINO 


TYPE=GET , DATASET=VSMSTR, RDIDADR=KEYF, 
MODE=LOCATE 

VSWABAR, TCAFCAA 

RECDBAR, VSWAREA 

3,VSWALEN 


c+) 


(VN 
q —— LOCATE MODE 


0 


Ol DFHBLLDS COPY DFEBLLDS, 
UZ, === 
02 VSWABAR PIC $9(8) COMP, 
02 RECDBAR PIC S9(8) COMP. 
Q1 DFHCSADS COPY DFHCSADS, | 


O1 DFHTCADS COPY DFHTCADS. 


02 KEYF PIC X(8), 

02 RECD-LENGTH PIC $9(8) COMP. 
i | 
01.DFHVSWA COPY DFHVSWA, 
01 RECORD-DESCRIPTION, 

02 RECORD PIC X(80). 
PROCEDURE DIVISION, — 

MOVE ACCTNO TO KEYF, 

READ-REC,. 


DFHFC =o TYPE=GET, DATASET=VSMSTR, RDIDADR=KEYF, 


MODE=LOCATE 
MOVE TCAFCAA TO VSWABAR. 
MOVE VSWAREA TO RECDBAR. 
MOVE VSWALEN TO RECD-LENGTH, 
PROCESS, 


X 


V.9.8b 


986A 


LOCATE MODE 


C) 


ZINCLUDE (DFHCSADS) ; 

ZINCLUDE (DFHTCADS) ; 

2 KEYF CHAR (8), 

2 RECD_LEN FIXED BINARY (31); 
ZINCLUDE (DFHVSHA) 


DECLARE 1 RECDESC BASED CRECDBAR), 


2 RECD_DESC CHAR (80); 
READREC: 

KEYF=ACCTNO; 

DFHFC TYPE=GET, DATASET=VSMSTR, RDIDADR=KEYF, 
MODE=LOCATE 

VSWABAR=TCAFCAA; 

RECDBAR=VSWAREA:; 

RECD_LEN=VSWALEN ; 
PROCESS: 


66 A 


> a 


FILE BROWSE 


COMPARABLE TO FILE SEARCH 
SEQUENTIAL: RETRIEVAL 
CONCURRENT BROWSE 
~~ MULTIPLE DATA SETS 
MULTIPLE TASKS 
ISAM - DAM - VSAM 


TF mim 


VSAM BROWSE 
MOVE OR LOCATE MODE 
SKIP-SEQUENTIAL PROCESSING 


CY 


—OL'6'A 


C) 


FILE BROWSE 


SPECIFY STARTING POINT FOR SEARCH 


DFHFC = TYPE=SETL,DATASET=MSTR, RDIDADR=KEYFLD 


~ RETREIVE. RECORDS oa 
DFHFC TYPE=GETNEXT | (RDIDADR) | 


TERMINATE RETRIEVAL 
DFHFC TYPE=ESETL 


TO CHANGE STARTING POINT DURING BROWSE 


DFHFC = TYPE=RESETL 


OR 


VSAM —» MODIFY RDIDADR 


6) 


LL'OA 


C) "¢) 


RECORD IDENTIFICATION RDIDADR 


ISAM - GENERIC KEY 
PARTIAL KEY PADDED WITH BINARY ZEROS 


[KEY ,.00000 


NAM - BLOCK REFERENCE 
PHYSICAL RECORD SEARCH ARGUMENT 


[TTR | | MBBCCHHR- 


VSAM - RELATIVE BYTE ADDRESS OR GENERIC KEY 


[RBA IL KEY _ 


CLEA 


C) —  ) oe 
GENERIC KEY 


° SETL (ABC) 
ISAM | _ VSAM 


RDIDADR [cl c2 c3 000000 ~~ Lo3 cl C2 (3 


° GETNEXT 


RDIDADR Cl C2 C3 Fl F2 F3 [C1 (2 C5 Fl F2 F3 


° RECORD ABC123 IN FWA 


ee amcor meget tine atta 


LLsp|SMiTH, JP? } |  [tteslsmitHywp; {| 


C) 


DFHFC 


FILE CONTROL 


TYPE=SETL 
[,DATASET=symbolic name] 
[,RDIDADR=symbolic address] 
| SEGSET= ( symbolic name 

ALL 
-RETMETH= eeynec} |< av 
hae 


[ARGTYP® { KEY \] 
RBA 


“SRCHTYP=( FKEQ } 
—, VSAM 
GKEQ 
[, 
L, 
[, 
[, 
[, 
[, 
[, 
[, 
[, 


~GKGE 

MODE ( MOVE | 

coe: 
NORESP=symbolic address] 
ERROR=symbolic address] 
DSIDER=symbolic address] 
SEGIDER=symbolic address] 
NOTFND=symbolic address] 
INV REQ=symbolic address] 
{OERROR=symbolic address] 
NOTOPEN=symbolic address] 
|LLOGIC=symbolic address] <——————_—-V SAM 


V.9.13 


VLEOA 


DFHFC 


C) ao 


FILE CONTROL 


TYPE=GETNEXT 
»SEGSET= symbolic name 
_ YES 
ALL | 
[,NORESP=symbolic address] 
[,ERROR=symbolic address] 
[,SEGIDER=symbolic address] 
[,NOTFND=symbolic address] 
[,INVREQ=symbolic address] 
[, |OERROR=symbolic address] 
[,.NOTOPEN=symbolic address] 
[,ENDFILE=symbolic address] 
[,|LLOGIC=symbolic address] «———————- VSAM 


SLE A 


DFHFC 


c) oe) 


FILE CONTROL 


TYPE=RESETL 
SSEGSET= ( symbolic name 
YES 
(ALL 
ann KEY \ 
RBA. 
~SRCHTYP= ( FKEQ 
) FKGE 
~GKEO 
GKGE. 
[,NORESP=symbolic address] 
[,ERROR=symbolic address] 
[,SEGIDER=symbolic address] 
[,NOTFND=symbolic address] — 
[,INVREQ=symbolic address] 
[| JOERROR=symbolic address] 
[,.NOTOPEN=symbolic address] 
[,{LLOGIC=symbolic address]~———+§— VSAM 


VSAM 


CQ 


WVSA————> [ ssauppe a1joquiAs=9/9501111 
[ssasppe IjOqQWAS=OIY ANI 

[ssauppe o1jOoquiAs=YOH YF 

[ssasppe o1joOquAs=4S4 HON 

VLISA=3dAL 


‘] 
‘] 
J 
J 


TOULNOO Alls 


( 


JAHAG 


V.9.16 


LLGEA 


0 on © 


| LOGICAL SECTION 1 | LOGICAL SECTION 2 | LOGICAL SECTION 3 aa LOGICAL SECTION 4 


PROGRAM 


GETNEXT FROM SECTION 2 


GETNEXT FROM SECTION 1 


GETNEXT FROM SECTION 4 


[~ 
Cc 


0 


MULTIPLE BROWSE 


DFHTCADS (TWA) 


SAVE ADDRESS FWAI 
SAVE ADDRESS FWA2 


START BROWSE 


DFHFC = TYPE=SETL, DATASET=FILEL, RDIDADR=KEY1 
SAVE TCAFCAA IN FWAL SAVE ADDRESS 


DFHFC TYPE=SETL, DATASET=FILE2,RDIDADR=KEY2 
SAVE TCAFCAA IN FWA2 SAVE ADDRESS 


RETRIEVE RECORDS 


RESTORE TCAFCAA WITH FWA1 or FWA2 
DFHFC TYPE=GETNEXT 


TERMINATE FILE BROWSE 


RESTORE TCAFCAA WITH FWA 
DFHFC TYPE=ESETL 
RESTORE TCAFCAA WITH FWA2 
DFHFC = TYPE=ESETL 


V.9.18 


6L EA 


C) 


DFHFC 


Cc) “C) 


FILE CONTROL 


TYPE=CHECK 
[, NORESP=symbolic address] 

[, ERROR= =symbolic address] 
[,.DSIDER=symbolic address] 

[ SEGIDER=symbolic address] 
[,NOTFND=symbolic address] 

[, DUPREC=symbolic address] 
[.INVREQ=symbolic address] 

[. LOERROR=symbolic address] 

[,. DUPDS=symbolic address] 

[, NOSPACE=symbolic address] 
[,NOTOPEN=symbolic address] 
[,ENDFILE=symbolic address] | 
[,1LLOGIC=symbolic address] <——~ VSAM 


026A 


DFHFC 


Cc) ©) 


FILE CONTROL 


TYPE=RELEASE 

[,NORESP=symbolic address] 
[,ERROR=symbolic address] 
[,INVREQ=symbolic address] 

[| {OERROR=symbolic address] 

[,| LLOGIC=symbolic address] «————— VSAM 


LCGA 


CUSTOMER 


LINE 2 


20 bytes 


SHIP—TO ADDRESS 


LINE 3 


20 bytes 


LINE 4 


20 bytes 


CUSTOMER 
HISTORY 


POSTAL ADDRESS } SHIP—TO ADDR ADDR 


NAME LINE? | LINE2 | LINES | LINE4 | LINE1 
20 st 20 bytes 20 bytes 20 ce 20 bytes 20 bytes 


acme ee TTC ET RL A RA, A LOO ty Ree in mace hen 


—__” are ” 
wom ™ ine x. . 


ACCOUNT HISTORY — ARREARS 


CURRENT TWO THREE OVER THREE 
BALANCE MONTHS MONTHS 


6 bytes 6 bytes 


6 bytes 6 bytes 


; Retete, oe. ae : 


COON 


variable 
format 
length 
bytes 

4 bytes 


ROOT SEGMENT 


15 auscsbienadetccartianeines 
customer credit 
number limit 


‘ 


CUSTOMER | POSTAL ADDRESS SEGMENTS ACCOUNT HISTORY 
NAME | . SEGMENT 
SEGMENT | Line 1 LINE 2 LINE 3 
12 im 13 bytes 9 bytes 7 bytes 30 bytes 


SN 


segment customer postal postal account history 
“presence name address address arrears 
! i 1 j i 
indicators line line 2 url 1 12 13. lover 
tn bal] mth|mthimth} 3 
mth 


ECEA 


Cc) 


FILE CONTROL TABLE (FCT) 


CONTROL SEGMENT saab (HEADER) 


LENGTH - OFFSET T0 SEGMENT INDICATORS - TYPE OF INDICATORS 


SEGMENT DEFINITIONS — (EACH SEGMENT IN RECORD): 


LENGTH - SEGMENT NAME - CHARACTERISTICS 


SEGMENT SET DEFINITIONS 


LOGICAL GROUPS OF SEGMENTS 


DOOA 


z. 
fy 
+ ate ome tegen” 


DATASET=CUSTOMER 
SEGMENT=ROOT 
SEGMENT=NAME 
SEGMENT=ADDR1 
SEGMENT=ADDR2 
SEGMENT=ADDR3 
"SEGMENT=ADDR4 
SEGMENT=SHIP1 
SEGMENT=SHIP2 
SEGMENT=SHIP3 | 
SEGMENT=SHIP4 
SEGMENT=HISTORY 
SEGMENT=ARREARS 


c) ©) 


DATA SET SPECS 
LENGTH=15 BITINDICS START#=12 | LNG=3 


VARIABLE | 20 =“ | BYTEALIGN 


| FIXED | 60 BYTES WORD ALIGN 
FIXED 60 BYTES WORD ALIGN 


SEGSET=NAMEADDR (ROOT) NAME ADDR1 ABDDR2 ADDR3 ADDR4 — 
SEGSET=ACCOUNT (ROOT) NAME ARREARS 


GSC 6A 


ed 0) 


0) 
© APPLICATION - CREATES SEGMENTED RECORD 

! 20 BYTES ‘10 Bytes ‘ 8 Bytes ‘ 8 Bytes ‘ 5 BYTES | 

: = 

CONTROL (ROOT) XX | XX| 00 | XX DATA DATA EMPTY NATA 

' CONTROL SEGMENT . =: SEG-2 : SEG-3 ° SEG-4 : SEG-S : 


@ CICS/VS - MODIFY DISPLACEMENT INDICATORS AND COMPRESS SEGMENTS 


CONTROL (ROOT) 


. CONTROL SEGMENT (20) SEG-2 (19). 


wre cow —7 VV NS TEA NE: Se mY ht 2 ne Re a 


2 ee ee eS AD eat 


1 es i | 
20 3000] 38 DATA = s*DATA'—SsSsODAATA 


LG TT RES MN TT EY ee EEN 


SEG-3 (8) SEG-5 (5). 


e APPLICATION - REQUESTS “SEG-3” 


cae NN A 


CONTROL croot) |20| 30| 00) 38 DATA 


, CONTROL SEGMENT (20) ° SEG-3 (8): 


_ 6A 


0 


c) 


FILE CONTROL TABLE DEFINES 


ROOT AND SEGMENTS 2-9 
SEGMENT SET SEGA AS SEGMENTS 2,6,and 9 


RECORD ON DASD CONTAINS 


[root | se62 | see3 | Seco | 


DFHFC TYPE=GET, DATASET=NSTR, SEGSET=SEGA 
FWA | ROOT | SEG2 | EMPTY | SEG9 - 


DFHFC TYPE=GET, DATASET=MSTR, TYPOPER=UPDATE, SEGSET=ALL 


FWA jRooT. | se62 | SE63._! EMPTY © TT se68 | 


7) 


LEONA 


BOLT, 21N. 


PRODUCT NAME 


| PRODUCT NAME | PRODUCT NO. 


6173 


PRODUCT NO. 


C). 


ACCESS BY 
PRODUCT NO. 


PRODUCT NO. 
RECORD 


SUPPLIER NO. 


ACCESS BY 
SUPPLIER NO. 


SUPPLIER 
DATA 
SET 


an 


SUPPLIER 
RECORD 


_ SUPPLIER NO. 


8c'6'A 


Cc) CY Cc) 


INDIRECT ACCESS 


CUSTOMER 


eee 
POLICY RECORD CUSTOMER RECORD 


POLICY| pou ICcyHOLDER | POLICYHOLDER 
NO. | 
8133462| SMITH,JOHN A SMITH,JOHN A 


ine 


DFHFC  TYPE=GET, DATASET=CUSTOMER, INDEX=POLICY, RDIDADR=KEYFLD, NORESP=PROCESS 


Aare 


62°6'A 


c) 


INDIRECT ACCESS 


POLICY RECORD 


PCLICY | POLICYHOLDER POLICYHOLDER AGENT — AGENT 
NO. NO. NO. 
8133462 | SMITH,JOHN A SMITH,JOHN A 68 68 


c) c) 


-AGENT RECORD 


DFHFC TYPE=GET, INDEX=POLICY, DATASET=AGENT , RDIDADR=KEYFLD, NORESP=PROCESS 


Of 6A 


om Ce) 


INDIRECT ACCESS. 


ae). 
POLICY 


DATA CUSTOMER 


- POLICY RECORD 


-POL.NO| FLAG| POLICYHOLDER | <a 
5155562|'FF'|JONES, AB 


CUSTOMER 
DUPLICATE 


DUPLICATES RECORD \ 


FIRST First|coDE / 
JONES, AB ALLAN B JONES1| ALF B JONES2 


DUPLICATES KEY CODED KEYS - 


WR “DUPLICATES FLAG 


c) 


DFHFC + TYPE=GET, DATASET=CUSTOMER, INDEX=POLICY, RNIDADR=KEYF,NORESP=PROCESS, 


DUPDS=DUPLICATE 


LEGA . 


no. —  @/Y 


\VSAM — MASS_-INSERT 


DFHFC TYPE=GETAREA, TYPOPER=MASSINSERT, 


READ INPUT, eee. 


DFHFC TYPE=PUT,TYPOPER=NEWREC, 


IF NOT END—OF—INPUT, GO TO READ—INPUT. . oe. 


: 


DFHFC TYPE=RELEASE, 


a 


CQ. 


‘AANLYVd=HGVGIGH 


"AI 9D=dALHOYS 


'3141759d0=43JdAL O4AHAG 


4147aq dNOHD  A\/CA 


CJ 


CQ 


_ V.9.32 


LL A 


TRACE CONTROL 


DEBUGGING AID FOR APPLICATION DEVELOPMENT 
SELECTIVE RECORDING OF CICS/VS MANAGEMENT REQUESTS 
RECORD OF USER SPECIFIED ENTRIES 

SIZE OF TRACE TABLE SPECIFIED IN SIT  (TRT=NN) 


DUMMY TRACE — 08 


AUXILIARY TRACE FOR MORE EXTENSIVE ANALYSIS, 


aoe yh BPE oe er 


‘on a) RY 
16 BYTE ENTRIES 


WRAP-AROUND TABLE 
FIRST ENTRY IS ‘CONTROL’ 


CURRENT 
ENTRY y 


FIELD A FIELD B 


10 JW 


CELA 


Cel A 


FF 


230 


240 


255 


199 


229 


239 


253 


TRACE IDENTIFICATION Cc 


USER ENTRIES 

SYSTEM ENTRIES 

FE ENTRIES 

TRACE CONTROL ENTRIES (CICS/VS) 
TRACE ON 


TRACE OFF 


SEL'A 


9° 


Tale CONTROL 


DFHTR TYPE=ENTRY 


so 1 YPE= SYSTEM 
; USER 
symbol KRDATATI= | register 
sia (register) 


,(D=number 


»DATAI1= 


WATA2= symbol 
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»“RDATA2= register 
(register) 


FBIN 


CHAR 
PACK 


DATAITP= S| HBIN 


- POINTER 
DATA2TP ( HBIN 

FBIN 
CHAR 
| PACK 


POINTER 


DFHTR TYPE=ENTRY,STYPE=USER,!ID=110, Xx 
DATA1=FLDA,DATA1TP=CHAR 


LEL'A 


\ 


cy 


CUSTOMER INFORMATION CONTROL SYSTEM 


TRACE TABLE 
4 


EAOOE3C3 OOO001ED 


000040 © FLOBCBOA 
000060 - F10BCB44 E100E3C3 00000038 
000050 Kk FOOBG29E 4000E3C3 40000000 
OCOOAO » FIOAAC22 8800004C 000002E2 
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CICS PROVIDED DUMP UTILITY PROG 


Sy 


DUMP CONTROL 


SELECTIVE STORAGE DUMPS 
SYSTEM TABLES AND AREAS 
TRANSACTION STORAGE 
SPECIFIC STORAGE 
PROGRAM STORAGE 


@ 


DUMP REQUEST QUEUEING 


DUMP DATA SET 


SEQUENTIAL DATA SET 
TAPE OR DASD 


VALUABLE DEBUGGING AID 
TESTING ENVIRONMENT 
ABNORMAL TASK OPERATION 


RAM 


*, 
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to: f « } : Yo, 
rn ee avs 3 
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CUSTOMER INFORMATION CONTROL SYSTEM STORAGE DUMP 


REGS 14-4 
REGS 5-11 


TASK CONTROL AREA 


0009c¢0 
000040 
000060 
000080 
0000A0 
0000C0 
QOQ00EO 
090100 
000120 
000140 
000160 


00088500 
G009CC5A 
00006C80 
OOO8FE20 
FEQQ9ADO 
500AA55C 
0008599F 
00000000 
00270000 
FOF3F3F3 
00000000 
00000000 


TASK CONTROL AREA 


000000 
000020 
000040 
000060 


BADGOIES 
OOOBESEO 
000852190 
00000000 


500AA55C 
OOO8FE28 


(USER AREA) 


0009CD78 
92D5FS3F0 
COOBE990 
0008899F 
D7CIDSE3 
OOOABR23E 
000BE990 
00000000 
D7C1D9E7 
F6F 34000 
00000000 
00000000 


(SYSTEM AREA)ADDRESS 088800 


CODE= 


ASRA 


TASK=PARX DATE=76.1947 TIME=10.33.363 PAGE 001 
PSW AT ENTRY TO ABEND 078D0004% COO8EC4GC 
OOOSFE2O OOOSF 300 0008E808 
00069408 OOOSESFO 0008F2C8 


OOOAB2Z3E 00000208 00000000 

0008899F OOOBE990 00000000 

ADDRESS 088880 TO  0839EF 
OLOAEEDO 00000000 00000000 0009CD60 
00000208 0009CD60 5009C60A ADO09C73C 
00000000 00089408 OOOABDF4S OO008FeCS 
OOOSFEZS8 00089A68 500A7104 000A8104 
€2904040 C1E2D9C1 078D0004 COO8ECSC 
00000208 00000900 OOOSFE2O 0008F 300 
06000000 00069408 OOOSE9FO OOOSF2C8 
24F090C0 06000000 00000000 000000900 
6BC4SC9E2 D76BEcD1 FOF1FOOO0 00000000 
00000000 00000000 00000000 00000000 
00000000 00000000 00000000 00000000 
8A0401E8 00089AD0 

TO 08837F 


00089AD0 00089430 00089550 
00000000 00000000 00000000 
00000000 00000000 00000000 
00000000 00000000 60000000 


ASRA REGS 0O THRU 15 
00000203 00000000 OO08FE20 0008F300 
00000000 00089408 OQOSE9SFO 0008F2C8& 


000000 
0000c0 


ADDRESS O9CCFS& 


80402100 
00088300 
4009CC5A 
0008581C 
009C0000 
0003SE8038 
00000000 
COOA7CDA 
ES5FOFOF1 


00000000 


00000000 


LENGTH 000170 


043100A0 
SOO9CCIA 
40089460 
0C089A60 
000873816 
OOOSFE2S 
00000000 
00000000 
FO04040F1 
00000000 
00000000 


LENGTH 000080 


0000005C OOOABDF4S 000886000 00000000 
00000000 O10AA158 00000000 000892720 
06000000 00000000 00000009 00000000 
00000000 00000000 00000000 00000000 


TO 09CD37 


LENGTH 000040 


QOOS8ES80S8 OOOSFE2S O00SS99F O00BE990 
O0OSSA0S 00089220 4008EC20 OO0AB23E 
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O888A0 
063838C0 
OS&SE0O 
0838900 
088920 
055940 
038960 
088980 
0839A0 
0889C0 
O8S9E0 


0883800 
088820 
083840 
0838860 


O9CCFS 
09CD18 


SVL A 


DUMP CONTROL 


TYPE=TRANSACTION 


~MPCODE= ( value \ 
lYEs § 


COMMON DUMP CONTENTS 
TCA, TWA, CSA, TRACE TABLE, REGISTERS, TCTTE, OR DCTE 


DFHDC TYPE=TRANSACTION, DMUPCODE=ABC5 


UDL'A 


bg € 6 


DUMP CONTROL 


DFHDC TYPE=CICS 
,~WMPCODE= ( value | 
\ Yes J 
DFHDC | TYPE=COMPLETE 
,DMPCODE= { value | 
l ves } 
DFHDC ~~ TYPE=PARTIAL 


“LIST=( [TERMINAL] [,PROGRAM|] [. TRANSACTION] [.SEGMENT] ) 
,MPCODE= i value | 
l yes f 


COMMON DUMP CONTENTS 


TCA, TWA, CSA, TRACE TABLE, REGISTERS, TCTTE, OR DCTE 


SULA 


<) 
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SEGMENT DUMP 


ADDRESS OF AREA TO’ TCADCSA 


—~.5LENGTH OF AREA TO TCADCNB 


DFHDC TYPE=PARTIAL,LIST=SEGMENT 


DFHDC TYPE=PARTIAL,LIST=(SEGMENT,PROGRAM) 


0) 


OVL A 


C) : C+ 


Ol DFHBLLDS COPY DFHBLLDS. 

OZ «20. 

02 SAACBAR PIC S9(8) COMP. 
Ol eo @ @ 
Ol DFHSAADS COPY DFHSAADS. 


MOVE 'DCAF' TO TCADCDC. 

MOVE FWACBAR TO SAACBAR,TCADCSA. 
MOVE SAASAD TO TCADCNB. 

GO TO DUMP-RTN. 


DUMP-RTN. | | 
DFHDC TYPE=PARTIAL, LIST=SEGMENT , DMPCODE=YES 


LYL A 


*INCLUDE DFHSAADS; 
SAACBAR=FWACBAR; 
TCADCNB=SAASAD; 
TCADCSA=FWACBAR; 


DFHDC TYPE=PARTIAL, LIST=SEGMENT , DUPCODE=DCAF 


ue oN? BASIC FUNCTIONS 


TABLE SEARCH 
‘PHONETIC CONVERSION | 
VERIFY DATA FIELD 
EDIT DATA FIELD 

BIT MANIPULATION | | 
INPUT FORMATTING 


WEIGHTED RETRIEVAL & ©) 7 -)> 


LSA 


CQ. 


een | 
9ISVad) =NOILdO| VOLIGHAG 


SNOILONNA NI-L1ING | 
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ASSEMBLER EXAMPLE 
COPY DFHTCADS 
AREA DS -CL20 
DEHBETCA OPTION=BASIC 


COBOL EXAMPLE 


01 DFHTCADS COPY DFHTCADS. 


O02 AREA PIC X(20). 


DFHBFTCA OPTION=BASIC 


PL/I EXAMPLE 


% INCLUDE (DFHTCADS): 
2 AREA CHAR (20): 


DFHBFTCA OPTION=BASIC 


ct) 


vS'A 


CY) — Y Ie) 


CSA OPTIONAL FEATURES LIST 


CSAOPFLA | 
[caw 


CSAOPBAR 


| DL/I 
>| JOURNAL MANAGEMENT 


BUILT-IN FUNCTIONS 
BASIC MAPPING — 
fe fm ATP 


MOVE CSAOPFLA TO CSAOPBAR. 


GSA 


on -) Ce) 


TABLE SEARCH 


| \ 
(wo FUNCTION TABLE j 


PARTS 


2/6 


PART 


DFHBFP 


DFHBIF TYPE=TSEARCH,  — re 
a ee ARG=PART, © 
- ae  ATABLE=(PARTS,,3,,6),. 
- INDEX=IDX _ 


98°A 


C) 
TABLE SEARCH 


ARGUMENT TABLE 
ARGUMENT 


PART | 2765 | 


INDEX VALUE 
INDX | 7 


FUNCTION TABLE 


TARGET 
PARTNM | BOLT ee VALVE 
BOLT 
DFHBIF TYPE=TSEARCH,ARG=PART, SCREW 


ATABLE=(PARTS,/4,,5), HAMMER 
FTABLE=(PARTN,PARTN,8,8), CABLE 
INDEX=INDX, TARGET=PARTNM, 

ORDER=ASCENDING, SUBST='NO PART’ 


j y) a 


Ca Dak fe 
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(N1G1434°N1914°0144° 1914) = J19V14 


SFIMVLNA‘NIGITSV’NIPLVO14V 19. LV) = JISVLV 
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C) — a) “CY 


ATABLE = (ATBL,AFLD,ATBLN,AFLDLN,ENTRIES) 


FTABLE = (FTBL,FFLD,FTBLN,FFLDLN) 


ee 
’ i. 


SBA 


BSA 


C) 


DFHBIF 


C) (Cc) 


TABLE SEARCH 


TYPE=TSEARCH 
[,ARG=symbolic address] 
[.TARGET=symbolic address] 


i. ATABLE=( [symbolic address1] i {vo address2 | 
. ) YES 


[numeric value] [fruner vee 


YES 
[,numeric value3]) 
“FTABLE=( i address1 _ (symbolic address2 ; 
o HL’ ives 


I a value , (numeric wan) 
pea \ | ton 


[ORER® Phys \] 
C aaeemiies 
— {ymore canes | [,NOMATCH=symbolic address] 


, i 
? ~ of \ 


‘literal value’ 
[, INDEX= a address} . + te fet Bad 
[.RANGE=YES~ > 
[,ERROR=symbolic address] _ 


OL’S’A 


| HAMMER 


PARTNAME 


c) 


TABLE SEARCH 


COMPLEX TABLE 


DFHBFP 


DFHBIF 


NnxHAD yp Vv 
zZzaaui7D p> TT 


VALVE 
BOLT 


SCREW 
HAMMER 


TYPE=TSEARCH, 
ARG=PART, 
TARGET=PARTNAME, 
ATABLE=(PARTS,;13,3,4), 
FTABLE=(‘PARTN,,10), 
NOMATCH=NOTEND 


Cc) 


LL'SA 


C) 


ARGUMENT 


PART | 2765 | 


INDEX VALUE 


INDX ee 


TARGET 


c) 
TABLE SEARCH 


Cc) 


ARGUMENT TABLE 


PARTS 


FUNCTION TABLE 


PARTNM | BOLT Je 


DFHBIF 


TYPE=TSEARCH,ARG=PART, 
ATABLE=(PARTS,,4,,5), 
FTABLE=(PARTN,PARTN,8,8), 
INDEX=INDX,TARGET=PARTNM, 
ORDER=ASCENDING,SUBST='NO_ PART’ 


VALVE 


BOLT 


SCREW 
HAMMER 
CABLE 


cLSA 
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PHONETIC CONVERSION 


NAMES THAT SOUND ALIKE 


SMITH —es . Mc ALILLY 


SMYTHE _ MAC ALILLY 
SMITTHE Mc ALLILE 
SMYTH | MAC: ALLILEY 


PRODUCE THE SAME PHONETIC KEY 
S530 . SMITHE 


M240 Mc ALLILY 


CO 


sjayoeieyud jeloads 410 Ssuaquunu 


HAMNMOIAV JN IVA ON 
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ZXOSxFOD C 
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NOISHSANO9 DILANOHd 


© 


V.8.13, 


[ssaippe o1oquiAs=YOYUY I’) 


castes Wie [sseuppe a1joquiAs=-q43/4'] 


OILANOHd=4dAL -4IGHIO 
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PHONETIC CONVERSION SUBROUTINE 


ASSEMBLER LANGUAGE: 
CALL DFHPHN, (lang,name,phon) 


ANS COBOL: 
CALL ‘DFHPHN’ USING lang name _ phon. 


PL/I: 
CALL DFHPHN (lang,name,phon); 


ey 


6) oe ape ie oe & > 


FIELD VERIFICATION 


. CHECK FIELD FOR 


9L'S'A 


— ALL ALPHA (A — Z or b} 


— ALL NUMERIC (X‘FO' — X‘F9’ WITH TRAILING MINUS OR CR). 


- ALL PACKED FIELD 


ANY COMBINATION OF ABOVE 


LLEA 


c) 


DFHBIF 


c) 


FIELD VERIFY 


TYPE=FVERIFY 
[,F1ELD=symbolic address] 
pemeneeae symbolic address | 

eee value i 
[,ALPHA=symbolic address] 
[,NUMERIC=symbolic address] 
[,PACKED=symbolic address] 


7 ae 


BLS A 


0) 


Cc) —_ (Cc) 


FIELD DE-EDIT 


STRIP NON-NUMERIC CHARACTERS FROM A FIELD 


DETECTS TRAILING ‘—’ OR ‘CR’ AND PLACES 
NEGATIVE ZONE OVER LAST DIGIT 


RIGHT JUSTIFIES REMAINING DIGITS 


ZERO PADDING TO LEFT 


‘AM’ TO ‘F’ ZONE ALLOWED ON RIGHTMOST BYTE 


anjeA DiJawWNnuU * 
econ DIJOQuAS | aowar 
ssaippe o1joquiAs=q74] 4’) 
11G3450=3dAL AIIGHsjG 


LIQ4 d1dld 
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| 0660000 | 
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CQ. 
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tia3-3q q@q3ld 
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CQ. 


[ssauppe o1joquiAs= =44O1L19'] 
[ssauppe o1oquiAs=NOLIG'] 


\ anjen | 
a ssaippe aijoquiAs § _ 
‘] 


[ssasppe s1oquAs=q]34]/4 
1sj.ig 
dl T4119 
4SOLISLIS 
NOLSSLIG. ) =adAL = SSH 
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INPUT FORMATTING 


~ALLOWS FLEXIBLE INPUT FORMAT TO BE USED BY TERMINAL OPERATOR 


FIXED FORMAT ee JONES J A 


POSITIONAL JONES, J,A 


KEYWORD LAST=JONES,Fl=J,MI=A 


PROGRAM WORKS WITH FIXED FORMAT 


PCOS A 


FIXED FORMAT 


1362 | JONES 314-AZ FORMAT ENTERED AT TERMINAL 


CUST. | CUSTOMER NAME ] INITS 
NO. 


FORMAT PRESENTED TO PROGRAM 


ECS A 


i . e ©) 


ce) 


POSITIONAL FORMAT 


1362/JONES/JA/314-AZ 


CUST. | CUSTOMER NAME INITS | CUST. 
NO. 


FORMAT ENTERED AT TERMINAL 


AFTER PROCESSING BY CICS/VS 
INPUT FORMATTING | 


VCS A 


C) 0) 


KEYWORD FORMAT 


CUST. | CUSTOMER NAME INITS | CUST. 
NO. | | REF. NO. 


Cc) 


FORMAT ENTERED AT TERMINAL 


AFTER PROCESSING BY CICS/VS 
INPUT FORMATTING 


G7'8'A 


DFHBIF TYPE = 
NAMES 

DFHBIF TYPE = 
FIELDS 
TRNCD 
LAST 
FIRST 
MI 


0) 


INPUT FORMATTING 


DEFLDNM 


= (TRN,LN,FN,MI) A 


INFORMAT, — 
- (TRNCD,LAST,FIRST,MI) 


C ) 


TCTTEDA 


978A 


C) 


DFHBIF 


DFHBIF 


C) Ce) 


INPUT FORMATTING 


TYPE=DEFLDNM 
;NAMES=(keyword[,keyword....]) 
,LABEL=symbolic address 


TYPE=INFORMAT | 
,“FIELDS=(symbolic address [,symbolic address....] ) 
NAMES" symbolic address | 
om 
— symbolic address | 
| meri value 


[,ERROR=symbolic address] 


LOS A 


‘es 


c) 


WEIGHTED RETRIEVAL 


FIELD1 MATCH — NOMATCH 


RANGE 
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USING WEIGHTED RETRIEVAL 
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DFHBIF TYPE = WTRETST 
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DFHBIF TYPE = WTRETGET 
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DFHBIF TYPE = WTRETREL 
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TYPE=WTRETST 
[, DATASET=symbolic name] 
[,RDIDADR=symbolic address] 
INPUTNO= (symbolic address 
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YES 
INPUTST= ( symbolic address ) 
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_LINPUTPC=( [suboperand1] [,suboperand2]) | 
“NRECDS= (symbolic address 
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YES 
[,NORESP=symbolic address] 
[,DSIDER=symbolic address] 
[. NOTOPEN=symbolic address] 
[.,NOTFND=symbolic address] 
[,INVREQ=symbolic address] 
[ !OERROR=symbolic address! 
[,OF LOW=symbolic address] 
[,1LLOGIC=symbolic address] 
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DFHBIF TYPE = WTRETGET 
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AFTER WTRETGET 
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VSWALEN CONTAINS LENGTH 
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TYPE=WTRETGET 
[,NORESP=symbolic address] 
[,ENDFILE=symbolic address] 
[,NOTOPEN=symbolic address] 
[.NOTFND=symbolic address] 
[,INVREQ=symbolic address] 
[ JOERROR=symbolic address] 
[,OFLOW=symbolic address] 
[,1LLOGIC=symbolic address] 
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[,NORESP=symbolic address] 
[,DSIDER=symbolic address] 
[,NOTOPEN=symbolic address] 
[.NOTFND=symbolic address] 
[,INVREQ=symbolic address] 
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[, LOERROR=symbolic address] 
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[,1LLOGIC=symbolic address] 


CJ 


[ssoappe d1jOqWAS=9/50111'] 
[ssauppe d1OQWAS=O5H ANI] 
[ssouppe o1OquwAS=4S4FHON’] 
TAY LAY LM=3dAL JIGH4G 


IWASIYLSd GALHOISM 


(J 


~V~.8.36 


L‘OL’A 


TASK MANAGEMENT 


MULTITASKING = 
TASK ORIGINATION —— 
TASK TERMINATION?) 

STALL PROTECTION 
RUNAWAY TASK PROTECTION 
TASK SYNCHRONIZATION 
RESOURCE SYNCHRONIZATION 
PRIORITY CHANGE 
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TASK CONTROL 


CREATE A NEW TASK (ATTACH) 


y * — TERMINAL ORIENTED 


ONLY ONE TASK PER TERMINAL 
PRIORITY CALCULATED 


TERMINAL NOTIFIED OF ABEND 


——5NON TERMINAL ORIENTED > 
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LONG RUNNING TASK — LENGTHY CALCULATIONS 
SYNCHRONIZE A TASK WITH THE COMPLETION OF EVENT 


SINGLE EVENT sie o 
MULTIPLE EVENTS oo 
FOUR BYTE ECB — OPERATING SYSTEM COMPATIBLE 
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TASK CONTROL 


DFHKC TYPE=ENO 
[,QARGADR=symbolic address] 
[ OARGLNG=number] 


DFHKC TYPE=DEQ 
[,QARGADR=symbolic address] 
|, QARGLNG=number|] | 
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ACTIVE TASKS 
CURRENTLY DISPATCHED TASK 
TASKS WAITING FOR — — 

DISPATCHING 
EVENT COMPLETION 


ECB 
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O SUSPENDED DCA CHAIN | -s J 
TASKS WAITING FOR — — 
TEMPORARY STORAGE 
MAIN STORAGE 
TERMINAL. 1/O 
INTERVAL CONTROL 
- ENQUEUED RESOURCE 
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TIME MANAGEMENT 


CICS/VS EXIT TIME INTERVAL 
SYSTEM STALL PROTECTION |.“ *) 
RUNAWAY TASK PROTECTION 

TIME OF DAY 


TIME DEPENDENT TRANSACTION SYNCHRONIZATION 


WAIT— POST—CANCEL 


~AUTOMATIC TIME-ORDERED TRANSACTION INITIATION 
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INTERVAL CONTROL 
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TYPE=GETIME 

FORME | BINARY | 
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ieee symbolic address | 
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[, NORESP=symbolic address] 

[,INVREQ=symbolic address] 

[,ERROR= =symbolic address] 


c) 


ELLA 


c) 


TIME ORIENTED TASK SYNCHRONIZATION 


WAIT — DELAY THE ee OF A TASK 
TIME OF DAY 
RESUME AT SPECIFIED TIME 
INTERVAL 
RESUME UPON EXPIRATION 


POST — SIGNAL EXPIRATION OF A SPECIFIED TIME 
TIME OF DAY | 

“POST” ECB AT SPECIFIED TIME 

INTERVAL 
“POST” ECB UPON EXPIRATION | 
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INTERVAL CONTROL | 
TYPE=WAIT — se 


YES 


pwns — value | | TIMES y rene value | 
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[,NORESP=symbolic address] 


[,INVREQ=symbolic address] 
[,EXPIRD=symbolic address] 


-[,ERROR=symbolic . address] 
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TYPE=POST . 
[INTRVAL= numeric value 
YES 


-NORESP=symbolic address] 
INVREQ=symbolic address] 
EXPIRD=symbolic address] 
ERROR=symbolic address] 
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AUTOMATIC TIME ORIENTED TASK INITIATION 


REQUEST INITIATION OF ‘ANOTHER TASK AT SOME FUTURE TIME 
INITIATE — WITHOUT DATA 
PUT — PASS DATA TO TASK USING TEMPORARY STORAGE 


QUEUES TIME ORDERED REQUEST 
VALIDATES REQUESTED FACILITIES 


GET — RETREIVE EXPIRED TIME-ORDERED DATA 


TERMINAL ORIENTED TASK 
NON TERMINAL TASK 
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INTERVAL CONTROL 


TYPE=INITIATE | 
_unneet numeric value | | a numeric value | 
ee | YES 


bw 
[, TRANSID=name] 
4? name) 
iva | 
[ NORESP=symbolic address] 
[, INV REQ=symbolic address] 
[, TRNIDER=symbolic address] 


_[, TRMIDER=symbolic address] 


[, ERROR=symbolic address] 
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hee YES 
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| TRANSID=name] 
“ry name | 
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[ICDADDE | symbolic sala 1 7 


ae 
[, NORESP=symbolic address] 
[. INVREQO=symbolic address] 
[ TRNIDER=symbolic address] 
[, TRMIDER=symbolic address] 
[ 1OERROR=symbolic address] 
[ ERROR= leila address] 
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INITIATE Service 
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CURRENT TIME TIME = 


INITIATE Service 


eur TO 6 HOURS ———————______________> 


TIME = CURRENT TIME 
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INTERVAL CONTROL 


TYPE=GET 
—— symbolic address | 
pee 
[.NORESP=symbolic address] 
[,INVREQ=symbolic address] 
[,NOTFND=symbolic address] 
[.ENDDATA=symbolic address] 
[, LOERROR=symbolic address] 
[, TSINVLD=symbolic address] 
[, 
[ 


ERROR=symbolic address] 
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INTERVAL CONTROL | 


TYPE=RETRY 
[,NORESP=symbolic address] 
[,INVREQ=symbolic address] 
[,NOTFND=symbolic address] 
[,LOERROR=symbolic address] 
[,ERROR=symbolic address] 
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TYPE=CHECK 
[,NORESP=symbolic address] 
[,INVREQ=symbolic address] 
[,EXPIRD=symbolic address] 
[, TRNIDER=symbolic address] 
~[, TRMIDER=symbolic address] 
[,NOTFND=symbolic address] 
[,ENDDATA=symbolic address] 
[,ERROR=symbolic address] 
[,TSINVLD=symbolic address] 
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MAPPING 


TEXT DATA 


TEXT DATA MAY BE HANDLED BY BMS WITH NO MAPS 


DSECT 


THIS TEXT WAS POSITIONED BY BMS!EDITING FUNCTION 


BMS 


THIS TEXT WAS POSITIONED BY BMS EDITING FUNCTION 


BMS 


NATIT Nitit N 
THIS TEXT WAS) 55 pppPOSITIONED BY BMS)\p 5p pEDITING FUNCTION, 


THIS TEXT WAS TCT: LINE LENGTH = 20 
POSITIONED BY BMS 
EDITING FUNCTION 


CGA 
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BASIC MAPPING | 


TYPE=(TEXTBLD 


YES 


Bsa {svmpet _s : 
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OUT 
STORE 
RETURN 


‘TRAILER= = address | 


en 
WUSTIFY= ( FIRST 
LAST 

nnn 

YES 
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,CURSOR= { remeer 


ro [PRINT] 
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[,WRBRK=symbolic address] 
[,NORESP=symbolic address] 
[, TSIOERR=symbolic address] 
[,INVREQ=symbolic address] 
[,RETPAGE=symbolic address] 
[,ERROR=symbolic address] 


[, SAVE][,ERASE]}) 


[,FREEKB][,ALARM}) 
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JUSTIFY 


BMS POSITIONS TEXT JUSTIFIED FIRST, LAST, OR 


AT A SPECIFIED LINE NUMBER WITHIN A PAGE BUFFER. 


PAGE 


- HEADER) 


TEXT DATA JUSTIFY=FIRST 
TEXT DATA JUSTIFY=nn 


TEXT DATA — JUSTIFY=LAST 


TRAILER 


JUSTIFY=YES LINE NUMBER ) 1-240 —»TCAMSJ 
JUSTIFY FIRST 254 | 
JUSTIFY LAST 255 
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HEADER 


TEXTBLD AUTOMATICALLY PLACES HEADER, IF SPECIFIED, 
AT BEGINNING OF EACH PAGE OF OUTPUT. 


MULTIPLE LINE HEADERS CAN BE PROVIDED BY EMBEDDING 
NL (X‘15’) CHARACTERS IN HEADER DATA. 


AUTOMATIC PAGE NUMBERING IS PROVIDED. 
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HEADER 


TCAMSHDR | 


ele HEADER DATA HHEHEF ' HEADER DATA 


—_—n —— . 
LENGTH RES | AUTOMATIC 


~~ 


OF ; PAGE 
DATA NUMBERING 


PAGE NUMBER LOCATOR 

B — AUTOMATIC PAGE NUMBERING NOT USED 

N — ANY LOCATOR VALUE EXCEPT X’‘OC’ X‘15’ X‘17' X‘26’ 
BMS SCANS HEADING DATA FOR THIS VALUE AND 
REPLACES 1—5 BYTES WITH PAGE NUMBER. 
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TRAILER | 


TEXTBLD AUTOMATICALLY PLACES TRAILER, IF SPECIFIED, 
AT THE BOTTOM OF EACH PAGE OF OUTPUT. 


MULTIPLE LINE TRAILERS CAN BE PROVIDED BY EMBEDDING 
NL (X‘15‘) CHARACTERS IN TRAILER DATA. 


AUTOMATIC PAGE NUMBERING IS PROVIDED. 
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TRAILER 


TCAMSTRL 
| TRAILER=YES 


uefa TRAILER DATA HHH ; TRAILER DATA - 


Nee" ft Sm 


LENGTH | | RES. | AUTOMATIC 
OF PAGE NUMBERING 
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PAGE NUMBER LOCATOR | | 

B — AUTOMATIC PAGE NUMBERING NOT USED 

N — ANY LOCATOR VALUE EXCEPT X’‘OC’ X‘15’ X‘17' X‘26’ 
BMS SCANS TRAILER DATA FOR THIS VALUE AND 
REPLACES 1—5 BYTES WITH PAGE NUMBER. 
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TYPE=PAGEOUT 


;CTRL= | PAGE a , (RETAIN \ | 
4 ccaeae aoe 
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YES 
[, TRANSID=transaction code] 
AWRBRK= ( symbolic address 
CURRENT 
ALL 
| FOPPURG AUTO 
{ OPER 


[.NORESP=symbolic address] 


~[,TSIOERR=symbolic address] 


[. RETPAG E=symbol ic address] 
[ ERROR=symbolic address] 


INTRODUCTION 


ROUTING 


ROUTING BUILDS A LOGICAL MESSAGE FOR EACH DIFFERENT TERMINAL TYPE: 
A LIST OF TERMINALS TO RECEIVE THE LOGICAL MESSAGE IS PLACED ON 
TEMPORARY STORAGE WITH TERMINAL TYPE PAGES. 


APPL. PROG. 


MCR 
TERMID 


TERMID | 


TERMID 


ROUTE 

PAGEBLD 
PAGEBLD 
PAGEBLD 
PAGEBLD 
PAGEOUT 


TEMPORARY 
STORAGE 


MCR 
TERMID 
TERMID 


V.6.1 


~. ROUTING 
ROUTE INITIATION 


ORIG TERM. 
PROGRAM : 


DFHBMS ROUTE 
DFHBMS PAGEBLD | TOA 


DFHBMS ind ™ MESSAGE TO BE ROUTED 


MAP (RECEIVING TERM) 


SAVE DATA FOR | 
AID OR ICE 
RETURN 
| TIOA 
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TEMP 
STORAGE | 
TIOA 
RECEIVING TERMINAL DATASTREAM 
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ORIG — 
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[,RTEFAIL=symbolic address] 
[,RTESOME=symbolic address] 
[,ERROR=symbolic address] 
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TO TERMINAL XXXX ANY OPERATOR 
TO TERMINAL XXXX ONLY OPERATOR XXX 
‘TO ANY TERMINAL ONLY OPERATOR XXX 


TERMID OPRID STATUS 


DFHURLDS (URLBAR) 
URLTRMID DS CL4 TERMINAL ID 
| DS CL2 RESERVED 
URLOPID DS CL3 OPERATOR !D- 
URLTSF DS B STATUS FLAG 
DS CL6 RESERVED 
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x‘40' 
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INVALID TERMINAL ID 

TERMINAL NOT SUPPORTED BY BMS 

OPERATOR NOT SIGNED ON 

OPERATOR SIGNED ON UNSUPPORTED TERMINAL 


9°9°A 


- ) 


ROUTING 


OPERATOR CLASS 


-DFHBMS TYPE=ROUTE,OPCLASS=N 
DFHBMS TYPE=ROUTE,OPCLASS=N,LIST=ALL 
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. ee ee ERRTERM 
TIME — | | | NOTIFIED 
[PRGDLAY=HHMM) 
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CURRENT | | TIME=HHMMSS MESSAGE 


TIME SEND DATA PURGED 
TO TERMINAL | ERRTERM 
NOTIFIED 

UP TO 6 HRS PRIOR | [PRGDLAY=HHMM] 


TIME=HHMMSS CURRENT TIME : MESSAGE 
SEND DATA | PURGED 

TO TERMINAL ERRTERM 

| NOTIFIED 
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TITLE 
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LENGTH (1-62 BYTES) 
(2 BYTES) 


LENGTH INCLUDES 2 BYTE LENGTH FIELD. 


Q00003D MESSAGE ONE TITLE 


000047 MESSAGE TWO TITLE 
OOOO8E MESSAGE THREE TITLE 
000128 SHORT MESSAGE IN TITLE 
0001A7 MESSAGE FIVE TITLE 
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TEXTBLD 
TEXTBLD 
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ROUTED LOGICAL MESSAGE 


DIRECT LOGICAL MESSAGE 


ROUTED LOGICAL MESSAGE 
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ROUTING 


DIRECT/ROUTE INTERMIX 


OUT DIRECT TERMINAL 
IN DIRECT TERMINAL 
ROUTE | 

PAGEBLD 

PAGEBLD 

OUT DIRECT TERMINAL 
IN DIRECT TERMINAL 
PAGEBLD 

PAGEBLD 

PAGEBLD | 

OUT DIRECT TERMINAL 
IN DIRECT TERMINAL 
PAGEBLD | 
PAGEBLD 

OUT DIRECT TERMINAL 


PAGEOUT ROUTED TERMINALS 


THE DIRECT TERMINAL MAY BE ONE OF THE TERMINALS 
ON THE ROUTE LIST. 
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MESSAGE SWITCHING 


SENDING TERMINAL 
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SWITCHING 


TRANSACTION 
(CMSG) 
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TEXT BUILD 
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-MESSAGE SWITCHING TRANSACTION 


PSEUDO-CONVERSATIONAL 

MESSAGES AND ROUTING MAY SPAN MULTIPLE INPUTS 
REPLACE BY RE-ENTERING 

ABBREVIATED KEYWORDS 

BACKSPACE HONORED 
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MESSAGE SWITCHING 


CMSG [MSG=] ‘MESSAGE’ 


[HEADING] a 
-ROUTE= * ({TERMID] [/OPRID] ,...} 
(TERMLST,...) 
(TERMLST,...,. ([TERMID] [/OPRID] ,...) 
ALL 


[,OPCLASS=(N,N, . :. )] 

[, TIME=VALUE] 
[,DATE=VALUE] 
[.ERRTERM= { TERMID ) ] 
—" ton | 
[,ID=(TITLE)] | 
[,CANCEL] 

[SEND] 
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‘MESSAGE SWITCHING 


MESSAGE TEXT — 
MSG=‘MESSAGE’ 
_M=‘MESSAGE* 
‘MESSAGE’ 

QUOTES WITHIN TEXT MUST BE ENTERED AS TWO QUOTES — 


MSG=’DON"T FORGET DOUBLE QUOTES’ 


EXAMPLES — 


CMSG MSG=’GOOD MORNING’.... 
CMSG M=‘GOOD MORNING’.... 
CMSG ‘GOOD MORNING’.... 
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EXAMPLE OF AN O 
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MESSAGE SWITCHING 


THE MESSAGE CAN BE STAMPED WITH — 


TIME OF ORIGINATION 
DATE OF ORIGINATION 
ORIGINATING TERMINAL 


EXAMPLES — 
HEADING=YES 
H=YES 
HEADING 
H — 
PREVIOUS HEADING REQUEST CAN BE IGNORED — 


HEADING=NO 
H=NO 
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MESSAGE SWITCHING 


DESTINATIONS ARE FLEXIBLE — 


ROUTE=( / 


XXXX TERMINAL ID 

IVYYY OPERATOR ID _ 

ZZ TERMINAL LIST TABLE SUFFIX 
; - ADD ENTRY TO TLT 
~ DELETE ENTRY FROM TLT 


ALL ALL TERMINALS 


OPCLASS=(N,N,.. . ) 
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MESSAGE SWITCHING 


EXAMPLES OF DESTINATIONS — 


R=TRM1 | A SPECIFIC TERMINAL 
R=/OP1 ‘A SPECIFIC OPERATOR IF SIGNED ON 
R=TRM1/OP1 A SPECIFIC TERMINAL WHEN OP1 SIGNS ON 
O=(2) ANY OPR WITH OPCLASS 2 SIGNED ON 
R=TRM1,0=(2) A SPECIFIC TERMINAL WHEN OPR WITH 

| OPCLASS 2 SIGNS ON 
R=.L1_ - DESTINATIONS IN TLT DFHTLTL1 


R=(.L1,+TRM1,—/OP1) DESTINATIONS IN TLT WITH MODIFICATIONS 
R=ALL ALL TERMINALS = 
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MESSAGE DELIVERY 
TIME=HHMM 


TIME=+HHMM 
+MM 
+M 


DATE=YY,DDD 
MM/DD 
MM/DD/YY 


DATE=+D 
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MESSAGE SWITCHING 


MAY BE DELAYED — 


TIME OF DELIVERY ON 24 HOUR CLOCK 
ASSUMES SAME DATE UNLESS DATE SPECIFIED 


TIME OF DELIVERY RELATIVE TO CURRENT TIME 


DATE OF DELIVERY | 
ASSUMES CURRENT TIME UNLESS TIME SPECIFIED 


DATE OF DELIVERY RELATIVE TO CURRENT DATE 
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A TERMINAL MAY BE NOTIFIED IF MESSAGE NOT DELIVERED 
WITHIN A SPECIFIC TIME INTERVAL. 


TERMID 
ERRTERM= 
ORIG 
TIME INTERVAL SPECIFIED AT SYSGEN. 
PRGDLAY=HHMM 


CSMT IS ALWAYS NOTIFIED WHEN MESSAGE IS PURGED. 7 


OL LA 


0 
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MESSAGE SWITCHING 


THE MESSAGE CAN HAVE AN IDENTIFYING TITLE 
TO BE DISPLAYED BY THE OPERATOR WHEN ‘P/Q’ 


ENTERED. 


ID=(TITLE) 
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MESSAGE SWITCHING 


TRANSACTION MAY BE CANCELLED AS FOLLOWS — 


CANCEL LAST 6 CHARACTERS OF INPUT 
CMSG FIRST 4 CHARACTERS OF INPUT 
STARTS A NEW MESSAGE SWITCHING TRANS. 


UPON COMPLETION OF INPUT OPERATOR ENTERS — 
SEND | 
S 


CLL A 
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MESSAGE SWITCHING 


EXAMPLES — 


CMSG 
CMSG 
CMSG 
CMSG 
CMSG 
CMSG 


CMSG 


‘GOOD MORNING’,R=ALL,S 
‘GOOD MORNING’,R=(.G1),T=0900,S 

‘GOOD MORNING’,R=(.G2,+TRM3),S 

‘SUPERVISOR”S MEETING AT 3:00 PM’,0=(4,5),S 
‘SUPERVISOR”S MEETING IN 5 MINUTES’,T=1455,0=(4,5),S 
‘MR. L. SPERIK, ARRIVING 3:15 PST. PLEASE MAKE 
RESERVATION AT HYATT HOUSE.) G. BRUINDE’,R=PADC,H,S 
‘SHUTDOWN IN 5 MINUTES’,R=ALL,T=1655,S 
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JOURNALING 


BE PREPARED FOR RECOVERY BEFORE THE NEED ARISES. 


PROVIDE A RECORD OF TRANSACTION STATUS (SYSTEM | 
STATUS) BEFORE ERRORS CAN OCCUR. 


HAVE STATUS RECORD READILY ACCESSIBLE. 


ORDER RECORDS CHRONOLOGICALLY: RECORD EVENTS AS 
THEY HAPPEN. 


RECORD IN PREDETERMINED AND RIGIDLY CONTROLLED 
FORMAT. 


ZILA 


C) 


USE OF JOURNALS 


RECOVERING FROM THE EFFECTS OF: 


A USER ENTERING WRONG DATA 
SYSTEM GOES DOWN 

BAD PROGRAM POLLUTES DATA 
LOSS OF DATA 
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JOURNAL MANAGEMENT 


SREATION AND MANAGEMENT OF JOURNAL FILES 


AUTOMATIC JOURNALING 


APPLICATION SERVICE REQUESTS 
RECORD OF DATA BASE CHANGES 
SYSTEM ACTIVITY LOG 
FACILITATE RECONSTRUCTION 


C) — ) on) 


er AUTOMATIC JOURNALING 
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FILE CONTROL REQUESTS JOURNALING 


FILE CONTROL TABLE DEFINES 
WHICH JOURNAL TO USE 
TYPE OF REQUESTS TO BE JOURNALED 
ALL, READ ONLY, READ FOR UPDATE, 
WRITE NEW, WRITE UPDATE OO 
MAY SPECIFY THAT 
BEFORE IMAGES OF RECORDS FOR UPDATE IN PLACE 
RECORD ID OF ADDITIONS TO FILE. 
COPY OF RECORDS DELETED FROM FILE 
BE LOGGED TO A JOURNAL DATASET 


| NYPOLNY | 


dO 
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CSA OPTIONAL FEATURES LIST 
CSA oe 
tL CSACBAR : 


CSAOPBAR 


DL/I 
JOURNAL MANAGEMENT 
BUILT-IN FUNCTIONS 


BASIC MAPPING 
ATP 


eee 
MOVE CSAOPFLA TO CSAOPBAR.. 
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0) 0) cae 


THE APPLICATION PROGRAM CAN - -— - = 


e ACQUIRE THE TASK'S JOURNAL CONTROL AREA 
e CREATE A JOURNAL RECORD AND WAIT FOR OUTPUT 
e CREATE A JOURNAL RECORD BUT RETAIN CONTROL 

e WAIT FOR OUTPUT OF A JOURNAL RECORD 


SCLA 


| Cy 


Cc) 
USING JOURNAL SERVICES 


DEFINE JOURNAL CONTROL AREA (JCA) 


COPY DFHJCADS 
OBTAIN A JOURNAL CONTROL AREA 
DFHJC TYPE = GETJCA 
REQUEST JOURNAL SERVICES — — — DFHJC 
© SYNCHRONOUS 
—\ PUT or (WRITE,WAIT) 
_ \ ASYNCHRONOUS 
<< WRITE 


SYNCHRONIZE 
WAIT 
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CSA 


TCACBAR pone 
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JOURNAL MANAGEMENT 


CSACDTA CSAOPFLA 
: _ CSAOPBAR 


ies 


OFL 


TCAJCAAD 


* 


a JCABAR 


| 
| 
! 
| 
JOURNAL MACRO ESTABLISHES 


ADDRESSABILITY on GETJCA 


. JOURNAL CONTROL 


DFHJC 


©) 


TYPE= PUT 
(WRITE,WAIT) \ 


a FILEID=( nn ’ 


SYSTEM. 
YES | 


an D= val a 


ponneer eee neces | 7 


YES 


" CDLGTH= decimal value \) 
YES 


¥ FXADDR=(symbolic address 
YES 


[Prxuate decimal value \| 
| YES : 


-NORESP=symbolic address] 


.IDERROR=symbolic address]~ _ 


[,LERROR=symbolic address] — 
[, OERROR=symbolic address] 
[, NOTOPEN=symbolic address] 
[,INVREQ=symbolic address] © 
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JOURNAL CONTROL 


DFHJC — TYPE=WRITE 
JFILEID= 7 nn 
SYSTEM 


oo nnnn i 
| [rm 
YICDADDR= (symbolic address 
i. a 


decimal value 
YES 


iad symbolic address ; 
vi 


" CDLGTH= ( 


c) 


(Pr LGTH= (decimal value 
YES | 
a YES | 

“~ 


pone {us symbolic address) \ 


| [,NORESP=symbolic address] ae Ae 
[,,DERROR=symbolic address] J~ 
[,.LERROR=symbolic address] 
[,.NOTOPEN=symbolic address] 
[,INVREQ=symbolic address] 


we) 


vLcL A 


| ROL 
- DFHJC —TYPE=WAIT 
JFILEID=/( nn 
SYSTEM 
YES 


[,NORESP=symbolic address] 
[,1DERROR=symbolic address] 
[, LOERROR=symbolic address] 
[,NOTOPEN=symbolic address] 
[,INVREQ=symbolic address] 
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_ 


-DFHJC 


JOURNAL CONTROL. 


TYPE=CHECK 
[,NORESP=symbolic address] 
[,DERROR=symbolic address] 
[,LERROR=symbolic address] 
[, JOERROR=symbolic address] 
[. NOTOPEN=symbolic address] 
[L.INVREQ=symbolic address] 
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LOGICAL UNIT OF WORK (LUW) 


ONE TERMINAL CONVERSATION 
A COMPLETED DATA BASE UPDATE SEQUENCE 
AN ENTIRE CICS TASK: 


PROTECTED RESOURCE 


A RESOURCE WHICH HAS BEEN ENQUED UPON IN ORDER TO PROVIDE 
EXCLUSIVE USE, OR CONTROL. 


SYNCH POINT 


A POINT AT WHICH A LOGICAL UNIT OF WORK HAS BEEN COMPLETED 
AND AT WHICH PROTECTED RESOURCES MAY BE FREED. 
-{MPLICITLY DEFINED AS A CICS/VS TASK COMPLETION 


EXPLICITLY DEFINED AS AN APPLICATION FUNCTION UPON COMPLETION 
OF A LOGICAL UNIT OF WORK. 


LUCL A 


SYNC POINT RECORD IS WRITTEN TO A SPECIAL PURPOSE JOURNAL (SYSTEM LOG) 
UPON COMPLETION OF A LOGICAL UNIT OF WORK. 
DEFINES THE EXTENT OF BACKOUT FOR EMERGENCY RESTART. 


INDICATES THAT THE WORK HAS BEEN COMPLETED 
UPDATES AND MODIFICATIONS TO THIS POINT DO NOT NEED TO 
BE BACKED OUT IN THE EVENT OF SYSTEM FAILURE. 
SYNC POINT INDICATES TO CICS/VS THAT IT MAY FREE PROTECTED RESOURCES 
AND DEFERRED PROCESSING CAN BE_ INITIATED. | 


DEQUEING OF FILE CONTROL RECORDS > 
TRANSIENT DATA PURGE — IF QUEUE DEFINED AS RECOVERABLE 


